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CZQNAAO DEQNA FUNCTIONAL TEST 


Bi 


MODULE ZQNA1 wal § *CZQNAAO DEQNA FUNCTIONAL TEST’ 


DENT = ‘VO1.0', 
ADDRESSING _MODEC ABSOLUTE), 
LANGUAGE(BLISS16)) = 


SSBTTL ‘GLOBAL DEFINITION MODULE’ 


BEGIN 
#( 


IDENTIFICATION 


PRODUCT CODE: AC-T614A-MC 

PRODUCT NAME: CZQNAAO DEQNA FUNCTIONAL TEST 
PRODUCT DATE: 10 OCT. 1983 

MAINTAINER: PSO DIAGNOSTIC ENGINEERING 
AUTHOR : S. MAZURCZYK 


COPYRIGHT (C) 1964 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERW 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
a te NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


OIGITAL POP UNIBUS MASSBUS 
DEC DECUS DEC TAPE 


2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 age 
2-Feb-1984 14:42:45 DISK $USER2: [MAZURCZYK .SOC JZQNA1.BLI;1 


SEQ 0001 
P 


1 
(1) 


Ci 


=e 0002 
ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Page 2 
v01.¢0 GLOBAL DEFINITION MODULE 2-Feb-1984 14:42:45 DISK$USER2: [MAZURCZYK, SOC )]ZQNA1.BLI;1 (2) 
: C 00SO 1 
3; C 00S1 1 
; C 0052 1 
; C 0053 1 
; C 0054 1 
; C ooSS 1 
; C 00OS6 1 TABLE OF CONTENTS 
3 © OOS? i 666000000000 0006 
; C 0058 1 
: C 0059 1 
; C 0060 1 1.0 GENERAL INFORMATION 
; C 0061 1 | PROGRAM ABSTRACT 
; C 0062 1 1.2 SYSTEM REQUIREMENTS 
: C 0063 1 1.3 RELATED DOCUMENTS AND STANDARDS 
; C 0064 1 1.4 ASSUMP TIONS 
; C 0065 1 
3 C 0066 1 2.0 OPERATING INSTRUCTIONS 
; C 0067 1 2.1 COMMANDS 
; C 0068 1 2.2 SWITCHES 
; C 0069 1 2.3 FLAGS 
; C 0070 1 2.4 HARDWARE QUESTIONS 
: C 0071 1 2.2 SOFTWARE QUESTIONS 
Fy : ped | : 2.6 QUICK STARTUP PROCEDURE 
; C 0074 1 3.0 ERROR INFORMATION 
; C 0075 1 
7 C 0076 1 4.0 TEST SUMMARIES 
3s C OO77 1 
; C 0078 1 5.0 MAINTENANCE HISTORY 
3; C 0079 1 


SS terre eer ene eet nN — SN. 


a nd 


Di 


SEQ 0003 

ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Page 3 | 
v01.0 GLOBAL DEFINITION MODULE 22-Feb-1984 14:42:45 DISK $USER2: [MAZURCZYK .SOC )ZQNA1.BLI;1 (3) 

0080 1.0 GENERAL INFORMATION 

OOBl 1 j= — = = = waeweccenee-------- i 

0082 

0083 

0084 1.1 PROGRAM ABSTRACT | 


The DIGITAL ETHERNET Q-Bus Network Adapter (DEQNA) Field Functional 
Diagnostic Program (ZQNA) performs extensive functional testing of 
the DEQNA/M7 module for @18 or Q22-Bus based PDP-11 systems. ZQNA 
program attempts to isolate faults to the following Field Replacable 
Units CFRU's): DEQNA, bulkhead assembly, transceiver cable and 
trensceiver. This software also attempts to localize faults to the 
functional areas of the DEQNA module. 


€ hard copy or CRT ). 


This diagnostic has been written for use with the diagnostic 
runtime services softwere (supervisor). These services provide 
the interface to the operator and to the software environment. 
For e complete description of the runtime services, refer to the 
XXOP+ user's manual. There is a brief description of the runtime 
services in section 2 of this document. 


1.2 SYSTEM REQUIREMENTS 


A test operator controls testing of the module from a console 


The ZQNA softwere operates on e typical ‘newer PDP-11 processor’ system 
thet hes one or two DEQGNA modules on the Q@18 or Q22 system bus. 

The internal end interneal/extended loopbeck mode tests do not 

require the transceiver or the loopback connector to be unplugged. 

The external loopback mode may be used with a terminated transceiver 
thet has no network cable attached. 


Testi DEQNA module and its interface to the Ethernet requires 
following hardware: 


- ja de system ( PDP-11/23 Plus, ORION ) with Q-Bus, 
- QNA aodule, 

- Minimum of 28K words of memory ( supporting block or non-block mode ), 
Console terminel, 

Loopbeck connector ( male loopback connector, Part @ 12 221 96-01 ), 
Bulkhead essembly, 

Trensceiver ceble, 

end transceiver ( H4000 ). 
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VAX-11 Bliss-16 V4.0-579 


SEQ 0004 


Page 
DISK $USER2: [MAZURCZYK.SDC )ZQNA1.BLI;1 


ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 

v01.0 GLOBAL DEFINITION MODULE 2-Feb-1984 14:42:45 

; C 0128 1 1.3 RELATED DOCUMENTS AND STANDARDS 

> C 0129 Lo tee eee e eee eee +--+ ---------- 

; € 0130 1 

; © 0132 1 XXDP+ Supervisor/User's Manual - ( CHQUS ). 

; € 0132 1 

; C 0133 1 

; C 0134 1 1.4 ASSUMPTIONS 

EOD 2. &}#3x,.  %. wewnoesesen 

; C 0136 1 

s © O1s7 i It is assumed that the system has been tested without DEQNA and found 
; C 0138 1 working before this di ostic is run, or that DEQNA DEC/X11 

3 : ate 4 Exerciser has dropped DEQNA option module when running system test. 

H 14 

; C 0141 1 

; C0142 1 2.0 OPERATING INSTRUCTIONS 

3C 0143 1 jj = =  — weeeeecceeee---------- 

; C 0144 1 

; € 0145 1 This section contains a brief description of the runtime services. 

: : oes : for detailed information, refer to the XXDP+ User's Manual (CHQUS). 

7 C 0148 1 

; C 0149 1 2.1 COMMANDS 

a. a Se 

; C0151 1 

+ C 01S2 1 There are eleven legel commands for the diagnostic runtime services 
sf ouss i (supervisor). This section lists the commands and gives a very 
3 : ree : brief description of them. The XXDP+ User's Manual hes more details. 
; C 0156 1 COMMAND EFFECT 

sGois7y § = i.  <@meseee $$  § seeccrecascassevesescsoecese 

; C 0158 1 

; C 0159 1 START Stert the diagnostic from an initial state 

7 C 0160 1 RESTART Stert the diagnostic without omisian teing 

; C 0161 1 CONTINUE Continue at test that was interrupted (efter tC) 
; C 0162 1 PROCEED Continue from en error halt 

7 C 0163 1 EXIT Return to XXDP+ monitor (XXDP+ operation only!) 
; C 0164 1 ADD Activate ea unit for testing (all units are 

; C 0165 1 considered to be active at start time 

; C 0166 1 DROP Deectivete ea unit 

; C 0167 1 PRINT Print statistical information Cif implemented 
; C 0168 1 by the di tic - section 4.0) 

; C 0169 1 DISPLAY Type ea list of all device information 

; C 0170 1 FLAGS swe the state of all flegs (see section 2.3) 
s 3 y+ fat : ZFLAGS Clear ell flege (see section 2.3) 

$ 

; C 0173 1 A command cen be recognized by the first three characters. 

; C0174 1 So you may, for exemple, type “STA” instead of “START”. 


4 
(4) 


Fi 


— oa 
ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 3 
v0O1.9 GLOBAL DEFINITION MODULE 22-Feb-1984 14:42:45 DISK $USER2: (MAZURCZYK. SDC JZQNA1.BLI; Nee (5) 
; C 0175 1 2.2 SWITCHES 
> C0176 L£  — — = = waeneeee 
,& Olfy i 
; C 0178 1 There are several switches which are used to modify supervisor 
; € 0179 1 operation. These switches ere appended to the legel commands. 
; C 0180 1 All of the legel switches are tabulated below with a brief 
; C 0181 1 description of each. In the descriptions below, a decimal number 
; C 0182 1 is designated by "DDDDD". 
; C 0183 1 
; C 0184 1 SWITCH EFFECT 
>C 0185 2 = weeeee wwe eee eee eee eee eee eee eeee 
; C 0186 1 
; C 0187 1 /TESTS:LIST Execute only those tests specified in 
; C 0188 1 the list. List is ae stri of test 
; C€ 0189 1 numbers, for example - /TESTS:1:5:7-10. 
3 © O191 2 be run. All other tests will not be run. 
; C0192 1 7PASS : 00000 Execute DDDDD passes (DDDDD = 1 to 64000) 
7 C 0193 1 /FLAGS:FLGS Set specified flags. flegs are described 
; C 0194 1 in gection 2.3. 
; € 0195 1 /EOP :DDD0D R rt end of pess writes after 3h. 
; C 0196 1 pee oni. = 1 to 64 ) 
; C 0197 1 /UNITS:LIST TEST/ADD/DROP only those units specified 
; C0198 1 in the list. List example - /UNITS:0:5:10-12 
3; C 0199 1 use units 0,5,10,11,12 Cunit numbers = 0-63) 
SE oso 1 nemo of 
3 xample of switch usage: 
; C 0202 1 
8 : 0203 : START/TESTS:1-5/PASS: 1000/EOP: 100 
; C 0205 1 The effect of this command will be: 
; C 0206 1 
; C 0207 1 1. Tests 1 th 5 will be executed. 
; C 0208 1 2. All unite will be tested 1000 times. 
3; C 0209 1 3. The end ro pess messages will be 
$ | : printed iat enn each 100 passes only. 
$ 
; C 0212 1 A Switch cen be recognized by the first three characters. 
3 B Sate : may. for exemple, type “/TES:1-5” instead of “/TESTS:1- ss. 
F} 
s C 0215 1 Below is ae Seite that specifies which switches can be used by 
; C 0216 1 each c 
; C 0217 1 
; C 0218 1 TESTS PASS FLAGS EOP UNITS 
"5 ee ee ee re ren 
; C 0220 1 START x x x x x 
; C 0221 1 RESTART xX x x x x 
3; C 0222 1 CONTINUE x x x 
; C 0223 1 PROCEED x 
; C 0224 1 DROP xX 
3; C 0225 1 ADD x 
; C 0226 1 PRINT 
3; C 0227 1 DISPLAY x 


Gi 


SEQ 0006 
CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 age 
GLOBAL DEFINITION MODULE 22-Feb-1984 14:42:45 DISK $USER2: [(MAZURCZYK .SOC JZQNA1.BLI;1 
FLAGS 
ZFLAGS 
EXIT 


6 
(5) 


a 


Hi 


SEQ 0007 
ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Page 7 
v01.0 GLOBAL DEFINITION MODULE 22-Feb-1984 14:42:45 DISK $USER2: [MAZURCZYK.SOCJZQNA1.BLI;1 (6) 
; C 0231 1 2.3 FLAGS 
eS O@32 2B  —  waiemin 
; C 0233 1 
; C 0234 1 Flags ere used to set up certain operational parameters such as 
3 © O235 i looping on error. All flags are cleared at startup and remain 
; C 0236 1 cleared until explicitly set using the flags switch. Flags 
s G O237 i ere also cleared after a start command unless set using the 
; C 0238 1 flag switch. The ZFLAGS command ~~. elso be used to clear 
s © 0239 i all flags. with the exception of the START and ZFLAGS commands, 
; C 0240 1 No commands affect the state of the fl ; they remain set or 
3 : oat | : cleared as specified by the last flag switch. 
; C 0243 1 FLAG EFFECT 
; C 0244 1 mt neem een ewww eee neene 
3; C 0245 1 
; C 0246 1 HOE Halt on error - control is returned to 
3; C 0247 1 runtime services command mode 
; C 0248 1 LOE Loop on error 
; C 0249 1 IER«s Inhibit ell error reports 
: C 0250 1 IBRe Inhibit all error reports except first 
3; C 0251 1 level (first level contains error type, 
; C O252 1 number, PC, test and unit) 
3; C 0253 1 IxRe Inhibit extended error reports (those 
; C 0254 1 celled by PRINTX macro’'s) 
3; C 0258S 1 PRI Direct messages to line printer 
; C 0256 1 PNT Print test number es test executes 
3; C 0257 1 BOE “BELL” on error 
; C 0258 1 UAM Unattended mode (no manual intervention) 
; C 0259 1 ISR Inhibit stetisticel reports (does not apply 
; C 0260 1 to diagnostics which do not support statis- 
3; C 0261 1 ticel reporting) 
; C 0262 1 IOR Inhibit program dropping of units 
; C 0263 1 ADR Execute autodrop code 
; C 0264 1 LOT Loop on test 
; C 0265 1 EVL Execute evaluation (on diagnostics which 
; C 0266 1 have evaluation support) 
; C 0267 1 
F 3 ond : *serror messages ere described in section 3.0 
; C 0270 1 See the XXDP+ User's Manual for more details on flegs. You may 
; C 0271 1 specify more then one flag with the fleg ewitch. For example, 
; C 0272 1 to ceuse the progrem to loop on error, inhibit error reports 
; : r= dh : end type e “BELL” on error, you may use the following string: 
8 
; C 0275 1 /FLAGS :LOE : IER: BOE 


Ii 


SEQ 0008 
ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Page 
v01.0 GLOBAL DEFINITION MODULE 2-Feb-1984 14:42:45 DISK $USER2: [MAZURCZYK .SOC]ZQNA1.BLI;1 
3; C 0276 1 2.4 HARDWARE QUESTIONS 
> C 0277 LL = ween ene eee -------- 
; C 0278 1 
; C 0279 1 When a diagnostic is started, the DRS prompts the user for hardware 
; C 0280 1 information by displaying 
; C 0281 1 
; C 0282 1 “CHANGE HW (L) ?” 
; C 0283 1 
; C 0284 1 you must answer “Y" after a start command unless the hardware 
; C 0285 1 information has been “preloaded” using the Setup Utility (see chapter 
; C 0286 1 6 of the XXDP+ User's Manual). When you answer this question with a 
; C 0287 1 “Y", the ORS asks for the number of units. You will then be asked the 
; C 0288 1 following questions for each unit. 
; C 0289 1 
; C 0290 1 @ OF DEVICES (D) ? 
; C 0291 1 
; C 0292 1 Answer with the number of units to be tested (no default). This answer 
; C 0293 1 key determine how many times the following questions are asked. 
; C 0294 1 One (1) device must be specified. 
; C 0295 1 
F : ooo : DEQNA I/0 PAGE ADR (0) 174440 ? 
; C 0298 1 Answer with the address of the I/0 page register assigned for 
; C 0299 1 of the DEQNA devices. The I/0 page addresses permited are: 174440 
; C 0300 1 and 174460. 
; C 0301 1 
; : a : INTERRUPT VECTOR ADR (0) 700 ? 
3; C 0304 1 Answer with the interrupt vector address of the DEQNA module 
7 C 0305 1 Interrupt vector address for device at I/0 p page address 174440 is 700 
: 3 soe : oct. and that for I/0 page address of 174460 is 704 oct. 
3 
>; C 0308 1 
; C 0309 1 
; C 0310 1 2.5 SOF TWARE QUESTIONS 
‘€ oot 2. Wo. 5 werncwenanenesneus 
; C O312 1 


8 
(7) 
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CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 
GLOBAL DEFINITION MODULE 22-Feb-1984 


2.6 QUICK START-UP PROCEDURE (XXDP+) 


To start-up this program: 


° 
° 
° 
° 
° 
° 
° 

When 

flegs 

pre 


you follow this procedure 
and software parameters. 


Boot XXDP-+ 
Give the date 


Type “R Name”, where Name is the name of 
this program 


Type “START” 

Answer the "CHANGE HW” question with “Y” 
Answer all the hardware questions 
Answer the “CHANGE SW” question with “Y” 
Answer all the software questions 


vious sections. 


14:43:57 VAX-11 Bliss-16 V4.0-579 


9 
14:42:45 DISK$USER2:[MAZURCZYK.SDC]ZQNA1.8LI;1 — (8) 


the BIN file for 


ou will be using only the defaults for 
hese defaults are described in the 


SEQ 0009 
Pp 


—— Cte 


K1 


SEQ 0010 | 
ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Page 10 
vO1.0 GLOBAL DEFINITION MODULE 2-Feb-1984 14:42:45 DISK $USER2: [MAZURCZYK.SDC )ZQNA1.BLI;1 (9) | 
; C 0339 1 3.0 ERROR INFORMATION 
*C 0340 L  — — ———— wannneenee------- 
; C 0341 1 
; C 0342 1 
; C 0343 1 TYPES OF ERROR MESSAGES | 
s C 084Q 2 i  — wmmmmcccncccccccccccccs 
; C 0345 1 
; C 0346 1 There are three levels of error messages that may be issued by 
; C 0347 1 a di tic: general, basic and extended. General error messages 
; C 0348 1 are always printed unless the IBE and/or IER flag is set. The general 
: 3 Sees 1 error message is of the form: | 
3 1 
» © OSS1 i NAME ER_TYPE ER_NO UNIT_NO TEST_NO PC_ADDR 
; C 0352 1 
s& O83 i »where; 
; C 0354 1 NAME = Pear name 
sc OSS 2 ER_TYPE = Error type ( all errors are HARD ) 
; C O356 1 ER_NO = Error r 
; C o357 1 UNIT_NO = 0 | 
; C 0358 1 TEST_NO = Test and subtest where error occurred 
H : oe ; PC_ADOR = Program Counter contents 
F 
; C 0361 1 Besic error messages ere messages that contain some additional 
; C 0362 1 information about the error. These are always printed unless one or 
; C 0363 1 more of the DRS error fleg(s) ( IBE. IXE, IER ) is set. These 
PF 3 oaee 1 messages are printed after the associated general message. 
; C 0366 1 Extended error messages contain supplementary error information such 
; C 0367 1 as ister contents or good/bed data. These are always printed unless 
; C 0368 1 the IXE and/or IER fleg is set. These messages are printed after the 
; C 0369 1 essociated generel error message and any associated basic error 
; C 0370 1 messages. A typical extended error message might have a following 
; C O371 1 format: 
3; C 0372 1 
s © OS7s 3&2 
3 : yo dans : TRANSMIT DESCRIPTOR LIST RECEIVE DESCRIPTOR LIST 
; C 0376 1 Flag Word Fleg Word 
s © OST7 i Low Order Addr Bits Low Order Addr Bits 
; C 0378 1 High Order Addr Bits High Order Addr Bits 
:; C 0379 1 Packet Leng (byte) Packet Lena (byte) 
; C 0380 1 Status Word 1 Status Word 1 
: ¢ 0381 1 Status Word 2 Status Word 2 


Li 


=. 0011 
ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Page 11 
vO1.6 GLOBAL DEFINITION MODULE 2-Feb-1984 14:42:45 DISK $USER2: [MAZURCZYK. SDC JZQNA1. BLI;1 (10) 
; C 0383 1 SPECIFIC ERROR MESSAGES 
> C 0384 LL —— wancncnnneneee--------- 
; C 0385 1 
; C 0386 1 Error messages will be “defined as needed”. The following are possible 
; C 0387 1 error messages. 
; C 0368 1 
; C 0389 1 
; C 0390 1 Device fatal error messages: 
; C 0391 1 
; C 0392 1 
; C 0393 1 2) NO INTERRUPT FROM DEQNA 
; C 0394 1 
; C 0395 1 
Ege peturn stat 
; eturn status messages. 
; C 0398 1 
; C 0399 1 
; C 0400 1 1) TRANSMIT STATUS ERROR 
; C 0401 1 2) RECEIVE STARUS ERROR 
; C 0402 1 3) CSR STATUS ERROR 
; C 04035 1 


i 
{ 
| 
| 
1) CSR REGISTER FAILED TO RESPOND 


Mi 


SEQ 0012 


ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Page 12 | 
vo1.0 GLOBAL DEFINITION MODULE 22-Feb-1984 14:42:45 DISK$USER2: [MAZURCZYK.SDCJZQNA1.BLI;1 (11) | 
; C 0404 1 4.0 TEST SUMMARIES 
> C 0405 Lb = = waeeneeeere---- | 
; C 0406 1 | 
; C 0407 1 

; C 0408 1 

; C 0409 1 NON-EXISTANT I/O PAGE REGISTER TEST 

> C 0410 Lo ww wn enn nnn ee nee enn e ene e eee ------ 

; C 0411 1 

; C 0412 1 This test verifies that all the device registers residing in the 

; C 0413 1 1/0 Page can be accessed without forcing a non-existant memory (NXM) 

; C 0414 1 interrupt. If the operator specifies loop on error, the program 

3 : ote 1 re-executes the code that detected the error until tC is entered. 

H 1 

; C 0417 1 Hardware tested: Q-Bus to DEQNA Slave Registers Interface 

; C 0418 1 

; C 0419 1 

; C 0420 1 Processing: 

; C 0421 1 

: C 0422 1 BEGIN 

; C 0423 1 ges ready for NXM interrupt 

3; C 0424 1 PEAT for every I/0 page register 

; Coase i ed 1/0 iet 

H re page register 

3; C 0427 1 IF NXM occured 

; C 0428 1 THEN 

; C 0429 1 rint error message if not inhibited 

; C 0430 1 TF 

; C 0431 1 

; C 0432 1 ENDREPEAT 

; C 0433 1 

3; C 0434 1 write any date pattern into the first 2 I/0 page 

Ete sive 

H re page ister 

; C 0437 1 IF NXM come 

; C 0438 1 THEN 

; C 0439 1 print error message if not inhibited 

; C 0440 1 ENDIF 

; C 0441 1 

; C 0442 1 END 

; C 0443 1 

>; C 0444 1 


Ni 


— ony 
ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 13 
vo1.0 GLOBAL DEFINITION MODULE , 22-Feb-1984 14:42:45 DISK $USER2: [MAZURCZYK.SDC)ZQNA1. BLI; 4 0912) 


CSR BIT TEST 


This test verifies that the CSR register static bits can be set 
and cleared as specified. The host writes data patterns to this 
register and reads them back verifying no static 

(stuck at 1 / stuck at 0) faults occur. If the operator specifies 
loop on error, the program re-executes the code that detected the 
error until tC is entered. 


Hardware tested: Q-Bus to DEQNA Slave Regs. Interface 


Processing: 
BEGIN 


set Software Reset (SR) bit in CSR and check for 
expected CSR status 

IF error 

THEN , 
rint error message if not inhibited 

ENDIF 


clear SR bit ii. CSR and check for expected CSR status 
F error 
THEN P 
print error message if not inhibited 
ENDIF 


set static bits ( 0.3.8.9 ) and check for expected CSR status 
IF error 
_— f nhibited 
rint error message if not inhibit 
NOTF 


clear static bits and check for expected CSR status 
hee 


gs error message if not inhibited 


NANAAAHAHAAHANAHHANHANAHAANANANANANAONAONONAOOONOONNNNOONANNNNONOONNN 
o 
N 
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SEQ 0014 
ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Blies-16 V4.0-579 Page 14 
v01.0 GLOBAL DEFINITION MODULE 2-Feb-1984 14:42:45 DISK $SUSER2: [MAZURCZYK .SOC )ZQNA1.BLI;1 (13) 
; C 0490 1 ETHERNET STATION ADDRESS VERIFY TEST 
8 C O49L LL wet e ee wee w wenn nen ee eee eee e ne e-ee- 
3; C 0492 1 
3; C 0493 1 This test verifies thet the Ethernet Station Address PROM can be 
3; C 0494 1 reed and loaded to host memory ep Ny Ethernet Station Address is 
3; C 0495 1 verified and checksum is computed from PROM date reed and this checksum 
7; C 0496 1 is compered to the checksum stored in the Ethernet Station Address 
3; C 0497 1 PROM. Ethernet Stetion Address is always printed out on the console in 
; C 0498 1 the Ethernet stenderd format. If the address is not proper, the error 
7; C 0499 1 is recorded end en eppropriete error message is printed out on the 
; C oSOO 1 console. If the operator specifies loop on error, the program 
; C 0501 1 re-executes the code that detected the error until tC is entered. 
; C oS02 1 
; C 0503 1 
3; C 0504 1 Harcwere tested: Station Address PROM 
; C oSoS 1 Q-Bus to DEQNA Slave Regs. Interface 
; C 0506 1 
; C 0507 1 
; C 0508 1 
; C 0509 1 Processing: 
; € 0510 1 
; C 0511 1 BEGIN 
; C oSi2 1 
7 C 0513 1 reset device 
; C 0514 1 reed DEQNA Station Address PROM and checksum 
; C 0515 1 save copy of Stetion Address PROM in host memory 
; C 0516 1 print Stetion Address on the console in stenderd format 
s C OS17 1 compute Station Address PROM checksum 
7 C 0518 1 If checkeum read not equal checksum computed 
8 : 0519 1 THEN ° 
3 0s20 1 rint error if not inhibited 
; € 0521 1 ENDIF pete 
3s C 0522 1 IF Stetion Address 
; C 0523 1 {ell 0's) 
; C 0524 1 OR (ell i‘s): 
; C 0525 1 OR [not essigned to DEQNA space): 
; C 0526 1 OR (multicest bit set): 
SE osse ft ~ e b 
é rint error if not inhibited 
: € ses | oF — 
: C 0530 1 
; C 0531 1 END 


C2 


SEQ 0015 
ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Blies-16 V4.0-579 Page 15 
v0O1.0 GLOBAL DEFINITION MODULE 22-Feb-1984 14:42:45 DISK $USER2: [MAZURCZ1K .SDC )ZQN41.BLI;1 (14) 
; C 0532 1 INTERRUPT VECTOR ADDRESS TEST 
s C OSSS 1 = = ———_ wwewwcccccccccnceeccecncenes 
; C 0534 1 
:; C os3S 1 This test verifies that all bits of the vector address register 
; C 0536 1 can be set and cleared as specified. The host writes date patterns 
e © OS37 i to this ister end reads them back verifying no static | 
; C 0538 1 (stuck at 1 / stuck et 0) faults occur. If the operator specifies 
; C OS39 1 loop on error, the program re-executes the code that detected the | 
: € Seat : error until tC is entered. 
; C 0542 1 NOTE: Only bits 9:2 of the Interrupt Vector Address Register are 
; C 0543 1 valid, rest read as zero ( 0 ). 
; C 0544 1 
; 3 a : The following BINARY date patterns are used: | 
3 
3; C 0547 1 60000000 11111111 
; C 0548 1 10101010 01010101 
; C 0549 1 11001100 00110011 
ES melt ine t's. } srerettt ine tru Yoctor Aderese 8 
3 walking 1's, 1 propageting thru Vector ess Reg. 
8 3 ase : walking O's, 0 propegating thru Vector Address Reg. 
3 
; C 0554 1 Hardware tested: Device Vector Address Register 
: C OSSS i Slave Interface Registers 
; C 0556 1 
3; C 0557 1 Processing: 
: C o5s8 1 
; C 0559 1 BEGIN 
; C 0560 1 reset device 
; C 0561 1 REPEAT for each pettern 
; C 0562 1 
3; C 0563 1 write pettern to Vector Address Register ( bits 9:2 ) 
; C 0564 1 reed pattern from Vector Address Register ( bits 9:2 ) 
; C OS65 1 compere write pattern to read pattern (less noise bits) 
7 C 0566 1 IF not equal 
; C 0567 1 HEN 
; C 0568 1 
; C 0569 1 
; C 0570 1 
; C OS71 1 ENDREPEAT 
; € 0572 1 END 


neerint error message if not inhibited 
| 
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CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:43:57 VAX-11 Blies-16 V4.0-579 ee 16 
GLOBAL DEFINITION MODULE 22-Feb-1984 14:42:45 DISK$USER2: [MAZURCZYK.SOC)JZQNA1.BLI;1 (15) 


INTERRUPT SANITY TEST 


This test verifies that DEQNA interrupts the processor only at 
the expected level ( 4 ) and not any other level. If the operator | 
specifies loop on error, the program re-executes the code that 

detected the error until tC is entered. 


Hardware tested: Q-Bus to QTOC interface 
CSR register 
Q-Bus timeout logic 
QTOC interrupt logic 


Processing: 


BEGIN 
reset device 
set-up for NXM interrupt 
REPEAT for each processor priority level 


enable device interrupt (set CSR bit 6) 
force NXM interrupt 
check for expected CSR status 
IF error 
THEN 
gue error message if not inhibited 


ENOREPEAT 
NO 


Cn a 
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CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL DEFINITION MODULE 


E2 


ETHERNET CARRIER SENSE TEST 


This test verifies that the DEQNA can transmit loopback packets. 

In order to run this test successfully the operator has to make 

sure thet DEQNA is connected to the transceiver. If the operator 
specifies loop on error, the program re-executes the code that detected 
the error until tC is entered. 


Hardware tested: Carrier Sense circuitry 


Encode/Decode ( ED ) chip 
Processing: 
BEGIN 
reset device 


select internel/extended or external loopback mode 
enable interrupts ( set bit 6 ) 


reed CSR 
i Cerrier Sense bit ( bit 13 )=1 
print error message if not inhibited 
ENDIF 
tranemit 1 t unchained loopbeck packet ( ETHERNET format ) 
reed CSR while transmitting loopback packet 
canna Cerrier Sense bit (bit 13) = 0 
print error message if not inhibited 


weit until Cerrer Sense bit goes to 0 
ENDIF 


reed CSR 
carat Cerrier Sense bit (bit 13) = 1 


rint error message if not inhibited 
ENDIF 


2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 
22-Feb-1984 14:42:45 DISK $USER2: [MAZURCZYK .SDC ]ZQNA1.BLI; 
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SEQ U918 | 
ZQNA1L CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Pag: 18 | 
v0O1.0 GLOBAL DEFINITION MODULE 2-Feb-1984 14:42:45 DISK$USER2: [MAZURCZYK.SDC )ZQNA1.BLI;1 (17) | 
; C 0650 1 | 
; C 0651 1 STATION ADDRESS RAM TEST 
C0652 1 www nnn n ene eee eee eee-e-- 
; C 0653 1 
; C 0654 1 This test verifies that Station Address RAM has no static faults. | 
; C 0655 1 The host writes and then reads data patterns to all of the 
; C 0656 1 addressable RAM (8 « 6 « 14 = 572 bytes ). The data is checked to see 
; C 0657 1 that the dete pattern received is the same as the date pattern 
; C 0658 1 transmited. This test continues until all the date patterns are | 
; C 0659 1 exhausted. If the operator specifies loop on error, the program 
3 : rey : re-executes the code that detected tne error until tC is entered. 
; C 0662 1 
: : eect : The following BINARY patterns ere used: 
; C 0665 1 11111111 00000000 
3; C 0666 1 10101010 01010101 
; C 0667 1 11001100 00110011 
; C 0668 1 111100¢0 00001111 
; C 0669 1 walking 1, shifting 1 ecross memory BYTE 
; C 0670 1 walking 0, shifting 0 across memory BYTE 
; C 0671 1 marching 1's, propagating 1's through the RAM 
3 3 os 4 marching 0's, propagating 0's through the RAM 
o 
; C 0674 1 Hardware tested: Station Addrese RAM 
; C 0675 1 Q-Bus to QTDOC interface 
; C 0676 1 CSR register - Receiver Enable (bit 0) 
3; C 0677 1 Portion of Receive and Tranemit FIFO 
; C 0678 1 
; C 0679 1 
; C 0680 1 Processing: 
; C 0681 1 
; C 0682 1 BEGIN 
; C 0683 1 reset device 
; C 0684 1 select Setup mode 
3; C 0685 1 REPEAT for each pottern 
; C 0686 1 
; C 0687 1 loed trenemit packet with deta pattern 
; C 0688 1 tranemit loopbeck packet (fill all of the RAM) 
; C 0689 1 receive packet 
; C 0690 1 check for expected loopback status 
; C 0691 i IF error 
£9535 I ac seein. 
FH print error if not inhibited 
£ oe } Y : 
3 cell compere_ ets 
3; C 0696 1 stan 
; C 0697 1 ENDREPEAT 
; C 0698 1 NO 


ees 
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SEQ 0019 
2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 P 19 
) 


22-Feb-1984 14:42:45 DISK$USER2:[MAZURCZYK.SDC)ZQNA1.BLI;1 ~ (18 


5.0 MAINTENANCE HISTORY 


Modified By: Date: Version: , 
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CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 
PROGRAM HEADER 2-Feb-1984 14:42:45 


SSBTTL ‘PROGRAM HEADER’ 
LIBRARY ‘ QNAL IB" ; 


REQUIRE ‘BLSMAC. REQ’; ! DIAGNOSTIC SUPERVISOR LIBRARY 


DEFINE THE NUMBER OF TESTS IN THIS DIAGNOSTIC 


PSECT 
CODE = AASCODES; 


LITERAL 
DS$NBR_OF _TESTS = 7; 


EQUALS; 
POINTER CALL); 


‘ 
: THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


HEADER (SASCII‘CZQNA ‘ ,SASCII'A’ ,WASCII‘'O’, 120, 0, PRIOO); 


° 
* 


NO POINTERS ARE OPTIONAL USING BLISS. MAKE SURE THE FOLLOWING 
SECTIONS OF CODE ARE IN PLACE CIN THE CORRECT SKELS),EVEN IF 
THE SECTIONS ARE BLANK, 


ARGUMENT FUNCTION 
RPT REPORT CODE 
SW SOFTWARE TABLE 
SFT SOFTWARE TABLE QUESTIONS 
AU ADO CODE 
DROP CODE 
TeL ERROR TABLE 
SETUP ASSEMBLED P-TABLES 


CHANGE THE “HEADER” TO CONTAIN THE PROPER ARGUMENTS. 
ARGUMENTS ARE: NAME ,REV.PATCH,LONGEST TEST TIME, TYPE 
WHERE “TYPE” = © FOR SEQUENTIAL DIAGNOSTIC AND =1 

FOR EXERCISER. | IS ALSO AN OPTIONAL SIXTH ARGUMENT 
WHICH SPECIFIES THE PROCESSOR PRIORITY TO BE SET WHEN 
STARTING THE DIAGNOSTIC (DEFAULT IS 0). 


2 


VAX-11 Bliss-16 V4.0-579 
DISK $USER2: [MAZURCZYK. SDC JZQNA1. BLI; * ey 
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SEQ 0021 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57  -VAX-11 Bliss-16 V4.0-579 Page 21 | 
DISPATCH TABLE 2-Feb-1984 14:42:45 DISK$USER2:(MAZURCZYK.SDC]ZQNA1.BLI;1 (20) 
SSBTTL ‘DISPATCH TABLE: 
fee A 

: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. | 
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. | 
DISPATCH (DS$NBR_OF_TESTS); | 
ERRTBL; 

See 

: CHANGE THE LITERAL DECLARATION OF DS$NBR_OF_TESTS TO BE | 
THE NUMBER OF HARDWARE TESTS IN YOUR PROGRAM. 


ed ed dd 


Je 


SEQ 0022 
CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 22 


DEFAULT HARDWARE P-TABLE 22-Feb-1984 14:42:45 DISK $USER2: [MAZURCZYK. SDC ]ZQNA1. BLI; eas 


SSBTTL ‘DEFAULT HARDWARE P-TABLE’ 


+ 
* 


THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF THE 
TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE IS IDENTICAL TO 
THE STRUCTURE OF THE HARDWARE P-TABLES, AND IS USED AS A “TEMPLATE” 
FOR BUILDING THE P-TABLES. 


PLACE YOUR DEFAULT HARDWARE P-TABLE HERE. THE VALUES AND 
SIZE WILL BE USED AS A “TEMPLATE” FOR CREATING ACTUAL P-TABLE 
ENTRIES AND THE DEFAULT VALUES IN THE OPERATOR DIALOGUE. 

i P-TABLE BUILT AT RUNTIME IS STORED IN SUPERVISOR 


BGNHW CHWPTBL ); 
GLOBAL 


. OFSTBL =: BLOCK [HWP_SIZE,WORD) INITIAL (#0'174440' ,#0' 700’ ); 


(21) 
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CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 23 
SOFTWARE P-TABLE 22-Feb-1984 14:42:45 DISK $USER2: [MAZURCZYK. SDC ]ZQNA1. BLI; 4 9 23) 


| 
| 
SSBTTL ‘SOFTWARE P-TABLE' | 


* 
* 


THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
+ or _— TIME AND MAY BE VARIED BY THE OPERATOR 


THIS TABLE IS NOT OPTIONAL. THIS TABLE, UNLIKE THE HARDWARE TABLE, 
WILL CONTAIN THE ACTUAL VALUES ENTERED BY THE OPERATOR. 


BGNSW (SWPTBL); 
GLOBAL 


DFHTBL : BLOCK [ SWP_SIZE, WORD ] INITIAL (#DECIMAL‘1'); 


PLACE YOUR SOFTWARE P-TABLE HERE,USING GLOBAL OR OWN DECLARATIONS 
ENDSW; 
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CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 
PROTECTION TABLE 2-Feb-1984 14:42:45 DISK $USER2: [MAZURCZYK .SDC )ZQNA1.BLI; 1 
SSBTTL ‘PROTECTION TABLE’ 

See 


: THIS TABLE IS USED BY THE RUNTIME SERVICES TO PROTECT THE LOAD MEDIA. 


BGNPROT (-1, -1, -1); 


n 

: 1ST ARG = OFFSET INTO P-TABLE FOR CSR ADDRESS 

H 2ND ARG = OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 

: 3RD ARG = OFFSET INTO P-TABLE FOR DRIVE NUMBER 

eS 

ENDPROT; 

See 

: INSERT BYTE OFFSET FOR DATA NOTED IN COMMENTS ABOVE. (COFFSET 
: REFERS TO THE NUMBER OF BYTES FROM THE BEGINNING OF A PTABLE 

: ENTRY TO THE ITEM IN QUESTION.) IF THE PARTICULAR 

H ITEM DOES NOT APPLY, LEAVE ENTRY AS -1. WHEN THE RUNTIME 

H SERVICES EXECUTES A GPHARD, IT USES THESE OFFSETS (IF NOT 

: SET TO -1) TO GET THE ITEMS AND COMPARE WITH THOSE SAVED 

H IN THE XXDP+ MONITOR. IF THE UNIT BEING REQUESTED MATCHES THE 
$ LOAD DEVICE, THE RUNTIME SERVICES RETURN AN INCOMPLETE FLAG ON 
H THE GPHARD. 

= 


— mony 


09° 25) 
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: SEQ 0025 
CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Page 25 
GLOBAL DATA SECTION 22-Feb-1984 14:42:45 DISK$USER2:[MAZURCZYK.SDCJZQNA1.BLI;1 (24) 
SSBTTL ‘GLOBAL DATA SECTION’ 
PSECT 
PLIT = $PLIT$, 
OWN = $OWNS 
GLOBAL = $GLOB$; 
See 
THE GLOBAL DATA DEFINED IN THIS SECTION IS USED BY MORE THAN ONE 
se 
GLOBAL 
tee 
COMMUNICATION AREA DECLARATIONS 
RCV_D_LIST : BLOCK f D_SIZE, WORD } FIELD ( DL_FIELDS ), 
xMIT_O_LIST : D_SIZE, WORD } FIELD ( DOL_FIELDS ), 
RCV_BUFFER : VECTOR { B_SIZE, BYTE }, 
XMIT_BUFFER : VECTOR { B_SIZE, BYTE }, 
PHYS_ADR : VECTOR f 22, BYTE }, 
SETUP _BUFFER : VECTOR { SETUB_SIZE, WORD }, 
IOP_TABLE : VECTOR f 8, WORD }. 
ETH_STATION_ADR : VECTOR [ 6, WORD ], 
STATION_ADR : VECTOR { 4, WORD }, 
PTRN_TABLE : VECTOR { 8, BYTE } INITIAL ( BYTE ¢ 
s8' + 9B'11111111', #8'10101010', #8'01010101', 
#8‘ 11001100"; #8'00110011', #8'11110000', #8'00001111' )), 
TARGET _ADR : VECTOR ({ T_SIZE, BYTE } INITIAL ( BYTE ( 
6X'00', SX'OO', 8X00’, SX‘'00', SX‘'00', #X‘'00', ‘4 
SX‘ AA’, SX'AA', SX'AA'. SX'AA'. SX'AA’. SX'AA'. ! 2 
6X'SS', 6X'SS’, sX'SS’', 8X'SS’, SX‘'SS', X'SS', : 3 
OXF! , OX'F FR’, SX'FF', SXF’, SX'FF', SX FF, ' 4 
SX' AA’, 8X00’, SX'OO', SX'00', SX'00'. SX'00'. : § 
SX" AA’, 6X'OO', SX'O2', SX’AA’, SX'AA', SX'AA’, ! 6 
SX’ AA’, 6X'OO', SX'OS', SX'SS’, SX'SS', sX'SS’, ! 7 
BX'AA', BX'OO', BX'O4', SX'FF', SX'FF', SX'FF', . = 
SX'AA', 8X'OO', SX'O4', 8X'0OO', SX'00', BX‘00', ! 9 
SX'AA', BX'OO', SX'O4', SX'18', BX'B1', BX'18', ! 10 
6X AA’, 6X'OB’, SX'OC’, SX'OD’, SX'OE’, SX'OF', !i1 
SX'FF*, SX'OO', SX'O1', SX'O2', BX'O3', BX'04', ! 12 
8X'SS’', 6X'OS’, 8X'06', SX'O7', SX'0B', BX'09', 13 
6X'OO', SX'FA', SX'FA’, SX'44', BX'44', BX'SS’, 14 
SX'CC', 6X'36', BX'26', SX'27', BX'27', BX'49', ! 15 
SX'33', SX'AL’. SX'67', SX'BB’. SX'4C’, SX'OF’. ' 16 
SX'EB', SX'BE’, SX‘'C7', SX'OF’, SX'33', SX'FF’ 0), $17 


BD_PROM_DESCR : VECTOR [ BD_O_SIZE, WORD } INITIAL ( WORD ( 
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CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL DATA SECTION 


NEWB, 


Vv, 
RCV_BUFFER, 
BYTE _COUNT, 


Vv. 
XMIT_BUFFER, 
BYTE_COUNT, 


Ne 


22-Feb-1984 14:43:57 
2-Feb-1984 14:42:45 


BUFFER NOT USED IF 1 


1/4 THE BYTE COUNT 
STATUS WORD 1 
STATUS WORD 2 


BUFFER NOT USED IF 1 
VALID ADDRESS IF 1 
XMIT BUFFER ADDRESS 
1/4 THE BYTE COUNT 
STATUS WORD 1 
STATUS WORD 2 


BUFFER NOT USED IF 1 
VALID ADDRESS IF 1 
2 EXTRA WORDS 


SEQ 0026 


VAX-11 Bliss-16 V4.0-579 


P 
DISK $USER2: [MAZURCZYK .SDC ]ZQNA1 .BLI; to 


26 
(24) 
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CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL DATA SECTION 


See 
J 


HARDWARE P-TABLE STORAGE DECLARATIONS 


HWP _TABLE : REF BLOCK [ HWP_SIZE, WORD } FI 


SOFTWARE P-TABLE STORAGE DECLARATIONS 
SwP _TABLE : REF BLOCK [ SWP_SIZE, WORD ) FI 


SYSTEM CLOCK STORAGE DECLARATIONS 


CLK_ADR : WORD, ! 
CLK_TYPE : WORD, ‘ 
e 

CLK_VEC WORD, ' 
CLK_CSR : WORD, : 
CLK_START : WORD, ' 
CLK_HERTZ : WORD, : 
CKS : WORD, : 
SECONDS : WORD INITIAL (0), ‘ 
MINUTES : WORD INITIAL (0), : 
CANCEL _TIMER : WORD, : 


MISCELLANEOUS DATA DECLARATIONS 


XBUF _LENGTH : WORD, : 
RBUF _LENGTH : WORD, ' 
PRES NEN AOR 3 ORD. : 
3 7 : 

INTERRUPT _FLG : WORD, ' 
QNA_NO : WORD, " 
TER : WORD, ¢ 
CHECKSUM : WORD, : 
BUF _LENGTH : WORD, : 
CSR_WORD : WORD, $ 
REG_ADR : REF REG_STR FIELD ( IOP 
IOP _DATA : REF REG_STR FIELD ( IOP 
GET_ADR : REF ADR_STR FIELD ( IOP 


B 4 


22-Feb-1984 14:43:57 
22-Feb-1984 14:42:45 


VAX-11 Blies-16 v4.0-579 


ELD ( HWP_FIELDS ), 


ELD ( SWP_FIELOS ), 


LOC. TO RETURN CLOCK ADDR 
TYPE OF CLOCK ON SYSTEM 
CO=NONE , -1°L -CLOCK, 1=P_CLOCK ) 
CLOCK INTERRUPT VECTOR ADR 


TOTAL @ OF CLOCK INTERRUPTS 
CLOCK RATE 

STORE SECONDS 

STORE MINUTES 


XMIT BUFFER LENGTH IN WORDS 
RCV BUFFER LENGTH IN BYTES 
FREE MEMORY BEGIN ADR 

FREE MEMORY SIZE 

1_= INTERRUPT OCCURED 
DEQNA UNDER TEST THIS PASS 
INETATION COUNTER, INDEX 
EXPECTED PROM CHECKSUM 

XMIT BUFFER SIZE IN WORDS 


-FIELOS ), 
-FIELOS ), 
-FIELOS ), 


SEQ 0027 
Page 
DISK $USER2: [MAZURCZYK.S0C )ZQNA1.BLI;1 


2 
(25) 
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SEQ 0028 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Page 28 
GLOBAL DATA SECTION 22-Feb-1984 14:42:45 DISK $USER2: [MAZURCZ 1K, SDC )ZQNA1. BLI;1 oF 26) 


a 
] 
2 TEMPORARY STORAGE DATA DECLARATIONS 
o 
4 


TMP _IOP_ADR : WORD, ! I/0 PAGE REGISTER ADDRESS 
TMP _REG_DATA : WORD, ! I/0 PAGE REG CONTENTS 
TEMP1 : WORD, ! TEMPORARY STORAGE LOCATION 
TEMP2 : WORD, ! TEMPORARY STORAGE LOCATION 
TEMPS : WORD, ! TEMPORARY STORAGE LOCATION 
TEMP4 : WORD, ! TEMPORARY STORAGE LOCATION 
TEMPS : WORD, ! TEMPORARY STORAGE LOCATION 
TEMP6 : WORD, ! TEMPORARY STORAGE LOCATION 
TEMP7 : WORD, ! TEMPORARY STORAGE LOCATION 
TEMPS : WORD, ! TEMPORARY STORAGE LOCATION 
TEMPS : WORD, $ TEMPORARY STORAGE LOCATION 
Pi : WORD, $ PARAMETER #1 
Po : WORD, ! PARAMETER #2 
PS : WORD, ' PARAMETER 03 
PS : WORD, ! PARAMETER 04 
PS : WORD, ! PARAMETER 05 
TBYTE1 : BYTE, $ 
TBYTE2 : BYTE, ? 
TBYTES : BYTE, Hy 
TBYTE4S : BYTE, ’ 
TADR1 : WORD, 3 
TADR2 : WORD; H 
See 
H THE ERRTBL MACRO IS REQUIRED WHETHER OR NOT YOU REPORT ERRORS USING 
H THE “ERROR” MACRO. THE ERRTBL MACRO EXPANDS INTO FOUR WORDS THAT 
8 ARE USED BY THE RUNTIME SERVICES DURING AN ERROR CALL: ERROR TYPE, 
: ERROR NUMBER, ADDRESS OF ERROR MESSAGE AND ADORESS OF MESSAGE 
3 BLOCK. THERE MUST BE ONLY ONE ERRTBL IN ANY PROGRAM. THIS SECTION 
: IS NOT OPTIONAL. 


ee Ge Ge Gt Ge Ge Ge Gt Gt Gs Gt Ge Ge Ge Ge Ge Ge Ge GF Gt GH Ge GE Ge Ge Ge Gs GE GH Ge Gs Gs Ge Gt Ge GH Ge Ge GF GH GH GH Gt OF GH GF Gs GF GH Ge Ge os oF 


PPE Po Pee feat ad fae fed Fae fed ed fee pd fed bed eo bao fed ped bed he he he hd be ho hd bd hE he hd pd pr ho pe pepe pe hehe pe pope pepe pe ht pe pepe pe 
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SEQ 0029 
P 


age 29 
GLOBAL DATA SECTION 2-Feb-1984 14:42:45 DISK$USER2:(MAZURCZYK.SDC)ZQNA1.BLI;1 (27) 


SSBTTL ‘GLOBAL TEXT SECTION’ 


fee 

: THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, MESSAGES, 
g AND ASCII INFORMATION THAT IS USED IN MORE THAN ONE TEST. 

© sm 

GLOBAL BIND 


DESCR_LIST = RCV_O_LIST, 
DATA_BUFFER = RCV_BUFFER, 


: HARDWARE AND SOFTWARE QUESTIONS 
QSTO1 = UPLIT (SASCIZ‘DEQNA I/0 PAGE ADR “hs 
QSTO2 = UPLIT (SASCIZ' INTERRUPT VECTOR ADR ‘), 
QSTOS = UPLIT (SASCIZ'BR LEVEL ‘). 
QSTO4 = UPLIT (SASCIZ‘'DO YOU WANT TO DO MANUAL INTERVENTION e *ds 
QSTOS = UPLIT (sASCIZ' ERROR LIMIT FOR DROPPING DEQNA ? '), 
QSTO6 = UPLIT (SASCIZ''), 
QSTO7 = UPLIT (sASCIZ''), 
QSTO8 = UPLIT (#ASCIZ''), 


UPLIT (sASCIZ‘'), 


° 
a 


THE FOLLOWING DBM‘S ARE DEBUG MESSAGES, AND SHOULD BE REMOVED BEFORE 
RELEASING THE PROGRAM. THEY INCLUDE THE NAMES OF EACH ROUTINE, PLUS 
FORMAT STATEMENTS FOR PRINTING OUT OTHER INFORMATION. 


UPLIT (SASCIZ‘SNSA INITIALIZE CODE SECTION ‘), 
UPLIT (SASCIZ‘ sNSA START COMMAND ‘ "ty, 


UPLIT (SASCIZ‘ sesA CLOCK VECTOR: 068A CLOCK I/OP ADR: SO6sNSN’ ), 
UPLIT (SASCIZ‘ SNA DEQNA ADR: SO68A SO6SNEN' ) 


UPLIT (SASCIZ' sNSA EXPECTED DESCR - INDEX*s068A EXPECTED = s06sN’ ) 


UPLIT (SASCIZ‘SNSA XMIT = SO6SA RCV = SO6SN’ ), 
UPLIT (SASCIZ‘siNsA CA BIT IS OK, CSR = SO6SNEN’), 


: 
8 
& 
S 
= 
hy 
2 
5] 
2 
3 
5 


a ee. 


UPLIT (SASCIZ‘sNSA INTR FLG = SO6SA ACTUAL = SO6SA EXPECTED = sO6sN'), 


ES 


SEQ 0030 
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» ose 1 
: 2557 2 tee 
: 2558 1 ' SYSTEM ERROR MESSAGES 
; 2559 1 = 
; 2560 1 | 
; «2561 1 ERROL = UPLIT (#ASCIZ'sNSANO CLOCK WAS FOUND ON THE SYSTEM’), 
; 2562 1 ERRO2 = UPLIT (#ASCIZ'SAI/O PAGE REG NOT PRESENT AT ‘), 
: 2563 1 ERROS = UPLIT (sASCIZ'SAERROR - TOO MANY DEVICES '), 
>| «2564 1 ERRO4 = UPLIT (SASCIZ'SNSA PROM CHECKSUM: ACT = sO68A EXP = SO6SN’), 
; 2365 1 ERROS = UPLIT (sASCIZ‘'SA UNABLE TO RESET DEGNA: ADR: S068A CSR = SO6SN’), 
; 42566 1 ERROG = UPLIT (SASCIZ' SA’ ), 
: 2567 1 ERRO7 = UPLIT (SASCIZ'SA' ), 
; «42568 1 ERROE = UPLIT (SASCIZ'SA' ). 
; 2569 1 | 
; 2570 1 tee 
: 2571 i FORMATTED ASCIC STRINGS | 
7 5° 
: 2573 2 E0001 = UPLIT (sASCIZ’DEQNA FATAL ERROR DETECTED ‘), 
; 2574 1 E0101 = UPLIT (#ASCIZ° SNSAREGISTER FAILED TO RESPOND AT ADDRESS: sO6SN" ), 
> «2575 1 E0201 = UPLIT (#ASCIZ‘SACSR BITS STUCK AT O - CSR ADR: SO6S8A CSR = SO6SN'), 
; 25% 1 E0202 = UPLIT (SASCIZ’SACSR BITS STUCK AT 1 - CSR ADR: SO6SA CSR © SO6SN’). 
> 2577 1 EO3O1 = UPLIT (SASCIZ'SNSABAD ST. ADR CHECKSUM: ACT = SO68A EXP = S06SN' ), 
>| «2578 1 E0401 = UPLIT (SASCIZ'SNSA CSR ADR: SO68A ACT VEC = S068A EXP VEC = SO6SN’), 
> «2579 1 EOSO1 = UPLIT (SASCIZ'SNSA RCV LIST EXPECTED TO GE VALID, CSR BIT 5 WAS SET&N’ ), 
: «2580 1 E0502 = UPLIT (SASCIZ‘SNSA B/D DESCR INDEX = SO68\A ACT = SO6SA EXP = SO6SN’ ), 
: 2581 1 E0503 = UPLIT (sASCIZ‘ SNA B/D PROM CHECKSUM OFFSET = sO6SA ACT = SO6SA EXP = SO6mN’), 
; «2582 1 E0601 = UPLIT (sASCIZ'sNSA IOP ADR: S068A ACT LEV = S06SA EXP LEV = sO6sIN' ), 
; «62583 i E0801 = UPLIT (sASCIZ' SNA IOP ADR: S06SA ACT LEV = s06SA EXP LEV = SO6SN’). 
e 2584 
3 2585 1 | 
3 2586 1 fee 
; «2587 1 ' DEVICE ERROR MESSAGES 
FH 2588 1 feos 
Fy 2589 1 
> 2590 1 MSGO1 = UPLIT (sASCIZ'sNSNSA DEQNA ADDRESS: SO68A, STATION ADDRESS: ‘), 
> 2591 1 MSGO2 = UPLIT (sASCIZ'SA ACTUAL DATA = s06sA EXPECTED DATA = sO6sN'), 
; 2592 1 MSGO3 = UPLIT (s#ASCIZ'SA XMIT DESCRIPTOR RCV DESCRIPTOR =N'), 
> 62593 1 MSGO4 = UPLIT (sASCIZ‘SA FLAG WORD SO68A SO65N' ), 
ar MSGOS = UPLIT (sASCIZ'SA HIGH ORDER ADOR BITS SO6HA SO068N' ). | 
; 42595 1 MSGO6 = UPLIT (sASCIZ'SA LOW ORDER ADOR BITS SO6HA SO060N' ); 
; 25% 1 MSGO7? = UPLIT (sASCIZ'SA PACKET LENGTH ( WD ) 068A SO068N' ): 
; 2597 1 MSGOB8 = UPLIT (sASCIZ'SA STATUS WORD 1 068A SO068N' ): 
> 42598 1 MSGO9 = UPLIT (sASCIZ'SA STATUS WORD 2 SO6HA SO065N'): 
; | «62599 1 MSG1O = UPLIT (s#ASCIZ'SA DEQNA CSR REGISTER SO6SN' ), 
; 2600 1 MSG11 = UPLIT (sASCIZ'SA DEGNA I/0 PAGE ADR SOGSNGEN' ), 
> 2601 1 MSG12 = UPLIT (s#ASCIZ‘’SA BAD CSR, ACTUAL = SO6SA EXPECTED = sO6siNMN’ ), 
> 2602 1 MSG13_ = UPLIT (sASCIZ'SA BAD TRANSMIT FLAG WORD AT I/O PAGE ADR = SO6aN’), 
; 2603 1 MSG14 = UPLIT (sASCIZ'SA BAD TRANSMIT STATUS WD 1 AT I/O PAGE ADR © sO6SN'), 
3 62604 1 MSG1S = UPLIT (#ASCIZ‘SA BAD RECEIVE FLAG WORD AT I/O PAGE ADR = sO6sN'), 
; 2605 1 MSG16 = UPLIT (#ASCIZ‘SA BAD RECEIVE STATUS WO 1 AT I/O PAGE ADR = SO6sN'), 
; 2606 1 MSG17 = UPLIT (sASCIZ‘SA BAD RECEIVE BUFFER LENGTH AT I/O PAGE ADR = sO06SN’ ), 
; 2607 1 M°G18 = UPLIT (sASCIZ‘SA BAD CSR = SO6sN’ ), 
; 2608 1 MSG19_ = UPLIT (#ASCIZ‘SA LOOPBACK PACKET UNABLE TO SET CA BIT, CSR = sO6SN’), 
shehinininneninetiieie tee 


oo oF @+ Gs Gs Ge Ge G+ 6 Ge Ge Ge Ge Ge Ge GF Ge Gs Ge Ge Gs GF GH OF Gt Ge GH Gt GF GF Gt GF GH GF Gt GF Gt OF Gt GH GH GF 
w 
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MSG20 = UPLIT (sASCIZ'SA LOOPBACK PACKET UNABLE TO CLEAR CA SIT, CSR = SO6SN’ ), 

MSG21 = UPLIT (#ASCIZ'SA CA BIT OK, BUT RI BIT IS NOT ON, CSR = SO6SN’), 

MSG22 = UPLIT (#ASCIZ'SA CA BIT IN THE CSR WAS SET TOO EARLY, CSR = SO6SN' Ve 

MSG23 = UPLIT (SASCIZ'SA @N'), 
See 
: DIAGNOSTIC ERROR MESSAGES 


MSG_1TOR= UPLIT (sASCIZ‘ THERE IS NO TOR VALUE’ . 

MSG_2TOR= UPLIT (SASCIZ'SNSA TOR VALUE > 0, TOR = SO6SN‘), 
MSG_STDR= UPLIT (SASCIZ'SNSA TOR VALUE = 0, TOR = S068N'), 
MSG_4TDR= UPLIT (SASCIZ'SNSA TOR VALUE < 0, TOR = SO6SN'), 


MSG_NXM = UPLIT (sSASCIZ‘NON-EXISTENT MEMORY TEST FAILURE’), 
MSG_LEN = UPLIT (sSASCIZ'SNSAPACKET LENGTH = SO6sN' ); 


MSG _ = UPLIT (sSASCIZ‘ POWER DELAY - WAITING’), 

MSG_CSR = UPLIT (s#ASCIZ'CSR REGISTER FAILED TO RESPOND’), 

MSG _' = UP_IT (sSASCIZ‘AT INCORRECT BR LEVEL’), 

MSG_INI = UPLIT (SASCIZ‘SNSA INTERRUPT AT VEC= #038A BR LEVEL= #01'), 
MSG_END = UPLIT (SASCIZ‘SA COMPLETED TEST’), 

MSG_CLR = UPLIT (s#ASCIZ'RESET DID NO CLEAR RING BUFFER’), 


° 
* 


ROUTINE TIME _INIT:( d= 


THIS ROUTINE DOES A 100 MICROSECOND TIMEOUT ON THE RESPONSE TO A HARD 

INIT (DONE BY WRITING IP). IT IS CALLED FOR ANY INIT IN THE PROGRAM 

IF THERE IS A P-CLOCK ON THE SYSTEM TO ALLOW THE TIMEOUT. IT SETS UP 

THE P-CLOCK TO INTERRUPT AFTER 100 MICROSECONDS; THEN IT WRITES IP, STARTS 
1 BIT OR AN ERROR. IF THERE 

IS AN INTERRUPT FROM THE CLOCK, THE INTERRUPT SERVICE ROUTINE WILL SET A 

FLAG. THIS ROUTINE CHECKS THAT FLAG BEFORE RETURNING TO THE TEST WHICH 

CALLED IT. IF THE FLAG IS SET, IT RETURNS A CODE SO THAT THE TEST CAN 

REPORT THAT THE TIMEOUT OCCURRED. OTHERWISE, SUCCESS STATUS IS RETURNED 

TO THE CALLING TEST. 


A 
2 
| 
6 
& 
Ets - 
$ 
cC- 
; 
88 
23 
x 
8 
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-TITLE ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 
io /VO1.0/ 


PSECT ‘sCODE$, RO 
132 121 LONAME:: ASCII /CZQ/ 
101 040 -ASCII /NA / 

-BYTE O 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEXT SECTION 


r 
- 
w 
+ 
S 


L$CO:: 
LSOTYP::. 
LSAPT:: 
LSOTP:: 
L$PRIO: 
LSENVI: 


Pcie 


ae 
SSSUUUUUUUUNUN0%8 


LSTEST::. 


L¢DISPATCH: 


PEELE 


ERRTYP: : .BLKW 
ERRNBR: : .BLK 


G3 
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P 
DISK $USER2: [MAZURCZYK.SDC]ZQNA1.8LI;1 > (27 


SEQ 0032 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEXT SECTION 


000000C 

174440 

000700 

000000C 

000001 

177777 

177777 

177777 
104 105 121 
116 101 040 
111 0S7 117 
040 120 101 
107 105 040 
101 104 122 
040 040 040 
040 000 000 
111 116 124 
105 122 122 


102 040 
114 105 126 
105 114 040 
040 040 040 
040 040 040 
040 040 040 
040 040 040 
040 000 000 
104 117 040 
131 117 125 
040 127 101 
116 124 
124 117 040 
104 117 040 
115 101 116 
101 114 
111 116 


ERRMSG: : .BLKW 
ERRBLK: : .BLKW 
L$HWLEN: : 

OFSTBL:: . WORD 


LSNOHW: : .BLKW 
LSSWLEN: : 


OFHTBL: : .WORD 


LSNOSW: : .BLKW 


L$PROT:: .WORD 


P.AAB: 


P.AAC: 


P.AAD: 


H3 
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1 
1 


<<L $NDHW-L SHWLEN>/2> 
-3340 


700 
1 


<<L $NDSW-LSSWLEN> /2> 


41/<57>/0/ 
4 PA/ 
/GE / 
/ADR/ 


/ / 
4 4<Q0><00> 


4 4¢00><00> 
/BR / 
/LEV/ 
JEL / 
/ 
/ 


sj AR NN 
~n 


00 / 
7YOU/ 
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DISK$USER2:(MAZURCZYK.SDC)ZQNA1.BLI;1 (27) 


3 


SEQ 0034 ' 
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111 117 -ASCII /TIO/ 

040 077 .ASCII /N 2/ 

000 000 “ASCII / /<00><00> | 

122 122 P.AAE: .ASCII /ERR/ 

122 040 ASCII /OR / | 

111 115 ASCII /LIM/ 

124 040 ASCII /IT / 

117 122 ASCII /FOR/ 

104 122 »-ASCII / OR/ | 

120 120 ASCII /OPP/ 

116 107 -ASCII /ING/ 

104 105 ASCII / DE/ 

116 101 ASCII /QNA/ 

077 040 ASCII /?2/ 

-ASCII <0O0O> 

000 P.AAF: ASCII <00><00> 

000 P.AAG: ASCII <00><00> 

000 P.AAH: ASCII <00><00> 

000 P.AAI: ASCII <00><00> 

116 045 P.AAJ: ASCII /sNs/ 

040 111 -ASCII /A I/ 

111 124 SCII /NIT/ 

101 114 -ASCII /IAL/ 

132 105 -ASCII /IZE/ 

103 117 -ASCII / CO/ 

105 040 -ASCII 

105 103 -ASCII /SEC/ 

111 117 ASCII /TIO/ 

040 000 -ASCII /N /<00> 

116 045 P.AAK: .ASCII /@Ns/ 

040 123 ASCII /A S/ 

101 122 -ASCII /TAR/ 

040 103 -ASCII /T C/ 

115 115 ASCII /0OMM/ 

116 104 ASCII /AND/ 

000 ASCII / /<00> 

116 045 P.AAL: .ASCII /stNs/ 

040 122 -ASCII /A R/ 

123 ASCII /€ST/ 

122 124 -ASCII /ART/ 

103 117 -ASCII / CO/ 

115 101 ASCII /MMA/ 

104 -ASCIIT /ND / 

-ASCIL <00> 

116 045 P.AAM: .ASCII /ssNs/ 

040 103 II sAC/ 

116 lea -ASCII /ONT/ 

116 . II /INU/ 

040 103 -ASCII /E C/ 

115 115 . II /OMM/ 

116 104 . II /AND/ 

000 000 ASCII / /<00><00> 

116 045 P.AAN;: .ASCII /sNs/ 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEXT SECTION 


P. AAO: 


P. AAP; 


J3 
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VAX-11 Bliss-16 V4.0-579 Page 
DISK$USER2: [MAZURCZYK SDC JZQNA1. BLI; © aes 


wW 
wi 


(27) 
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SEQ 0036 
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000 000 -ASCII /N/<00><00> 
116 045 P.AAS: .ASCII /ssNs/ 
040 127 -ASCII /A W/ 
040 110 -ASCII /E H/ 
126 105 -ASCII /AVE/ 
120 oss -ASCII / P-/ 
114 117 -ASCII /CLO/ 
113 040 -ASCII /CK / 
116 040 -ASCII /ON / 
110 105 -ASCII /THE/ 
123 131 -ASCII / SY/ 
124 105 -ASCII /STE/ 
040 000 -ASCII /M /<00> 
116 045 P.AAT: .ASCII /sNs/ 
040 127 -ASCII /A Wi/ 
040 110 -ASCII /E H/ 
126 105 -ASCII /AVE/ 
114 oss -ASCII /L-/ 
114 117 -ASCII /CLO/ 
113 040 -ASCII /CK / 
116 040 -ASCII /ON / 
110 105 -ASCII /THE/ 
123 131 -ASCII / SY/ 
124 105 -ASCII /STE/ 
040 000 -ASCII /M /<00> 
116 045 P.AAU: .ASCII /sNs/ 
040 103 -ASCII /A C/ 
117 103 -ASCII /LOC/ 
040 126 -ASCII /K V/ 
103 -ASCII /ECT/ 
072 -ASCII /OR:/ 
045 117 -ASCII / #0/ 
045 101 -ASCII /6sA/ 
103 -ASCII / C/ 
117 103 -ASCII /LOC/ 
040 111 ASCII /« I/ 
117 -ASCII <57>/0P/ 
101 104 -ASCII / AD/ 
072 040 -ASCII /R: / 
117 -ASCII /806/ 
116 045 -ASCII /sNs/ 
-ASCII /N/<00> 
116 045 P.AAV: .ASCII /sNs/ 
040 104 eASCII /A O/ 
121 116 -ASCII /EQN/ 
101 -ASCII /A A/ 
072 -ASCII /OR:/ 
045 117 -ASCII / #0/ 
045 101 -ASCII /68A/ 
-ASCII / V/ 
103 072 -ASCII /€C:/ 
045 117 -ASCII / #0/ 
045 116 -ASCII /6sN/ 


GGG) oe 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEXT SECTION 


A 
P.AAW: ASCII 


P.AAX: .ASCII 


P.AAY: A 


P.AAZ: .ASCII 


— 0037 
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Page 
22-Feb-1984 14:42:45 DISK $USER2: [MAZURCZYK, SOC]ZQNA1.BLI;1 (27) 


/#N/<00> 
/6NS/ 
7A C/ 
/SR / 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEXT SECTION 


P.ABA: .ASCII 


P.ABB: -ASCIT 


P.ABC: .ASCII 


P.ABD: .ASCII 


M3 


SEQ 0038 
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N3 


SEQ 0039 
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105 040 ASCII /HE / 
131 123 ASCII /SYS/ 
105 115 ASCII /TEM/ 
000 -ASCII <00><00> 
101 111 P.ABE: .ASCII /#AI/ 
117 040 -ASCII <57>/0 / 
101 107 ASCII /PAG/ 
040 122 ASCII /€E R/ 
107 040 ASCII /E€G / 
117 124 ASCII /NOT/ 
120 122 -ASCII / PR/ 
123 105 II /€SE/ 
124 040 ASCII /NT / 
124 040 -ASCII /AT / 
000 -ASCII <00><00> 
101 105 P.ABF: .ASCII /#AE/ 
122 117 .ASCII /RRO/ 
040 oss II /R -/ 
124 117 ASCII / TO/ 
040 115 -ASCII /0 M/ 
116 131 -ASCII /ANY/ 
104 105 -ASCII / DE/ 
111 103 > II /VIC/ 
123 040 -ASCII /ES / 
eASCII <00> 
116 045 P.ABG: .ASCII /sNs/ 
040 120 -ASCII /A Ps 
117 115 -ASCII /ROM/ 
103 110 . II / CH/ 
103 113 -ASCII /ECK/ 
125 115 -ASCII /SUM/ 
040 101 ‘ II /: As 
124 040 ASCII /CT / 
040 045 -ASCII /= #/ 
066 045 -ASCII /068/ 
040 105 ’ II /A E/ 
120 040 -ASCII /xXP / 
040 045 . II /= &/ 
066 045 -ASCII /06s8/ 
000 eASCII /N/<00> 
101 040 P.ABH: .ASCII /#A / 
116 101 eASCII /UNA/ 
114 105 -ASCII /BLE/ 
124 117 -ASCII / TO/ 
122 105 II / RE/ 
105 124 > II /SET/ 
104 105 ‘ II / DE/ 
116 101 -ASCII /QNA/ 
040 101 -ASCII /: A/ 
122 072 . II /OR:/ 
045 117 -ASCII / #C/ 
045 101 -ASCII /6s8A/ 
040 103 eASCII / C/ 
1 
| 
EEE 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEXT SECTION 


040 


040 
045 
045 


P.ABI: 
P.ABJ: 
P.ABK; 
P.ABL: 


P. ABM: 


P.ABN: 


B4 
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“SR 7 

4* &/ 
/068/ 
/N/<00> 
/BA/<00> 
<00> 
/#A/<00> 
<00> 
/@A/<00> 
<00> 
/DEQ/ 
/NA / 
/FAT/ 
JAL / 
ZERR/ 
OR / 
/DET/ 
/ECT/ 
4ED / 
<00> 
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SEQ 0041 
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045 116 -ASCII /6N/ 
-ASCII <00> 
101 103 P.ABO: .ASCII /#AC/ 
122 040 -ASCII /SR / 
111 124 -ASCII /BIT/ 
040 123 -ASCII /S S/ 
125 103 -ASCII /TUC/ 
040 101 -ASCII /K A/ 
040 061 -ASCII /T 1/ 
055 040 ASCII / - / 
123 122 -ASCII /CSR/ 
101 104 -ASCII / AD/ 
072 040 -ASCII /R: / 
117 -ASCII /806/ 
101 040 -ASCII /#A / 
103 123 -ASCII / CS/ 
040 075 -ASCII /R =/ 
045 117 -ASCII / #0/ 
045 116 -ASCII /68N/ 
-ASCII <00O> 
116 045 P.ABP: .ASCII /sNs/ 
102 101 -ASCII /ABA/ 
040 23 -ASCII /D S/ 
056 040 -ASCII /T. / 
104 -ASCII /ADR/ 
103 110 -ASCII / CH/ 
103 113 -ASCII /ECK/ 
125 115 -ASCII /SUM/ 
040 101 -ASCII /: A/ 
124 -ASCII /CT / 
040 045 eASCII /= #/ 
066 045 -ASCII /068/ 
040 105 -ASCII /A E/ 
120 -ASCII /xP / 
040 045 -ASCII /= #/ 
066 045 -ASCII /06s/ 
000 -ASCII /N/<00> 
116 045 P.ABQ: .ASCII /sNs/ 
040 103 eASCII /A C/ 
122 040 -ASCII /SR / 
104 122 eASCII /ADR/ 
040 045 eASCII /;: #/ 
066 045 eASCII /06s8/ 
040 101 -ASCII /A A/ 
124 040 -ASCII /CT / 
105 103 -ASCII /VEC/ 
075 eASCII 4/2 / 
117 066 -ASCII /806/ 
101 040 -ASCII /#A / 
130 120 -ASCII /EXP/ 
126 05 -ASCII / VE/ 
040 075 eASCII /C #/ 


a  — — 
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045 


SRESSRELERE 


~ 
~~ 
o 


S828 


P.ABR: 


P.ABS: 


P.ABT: 


D4 
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ey 
DISK$USER2:[MAZURCZYK.SDC]ZQNA1.BLI;1 > 


42 
(27) 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEXT SECTION 


P. ABU: 


P. ABV: 


P. ABW: 


E4 


22-Feb-1984 14:43:57 
22-Feb-1984 14:42:45 


_ 9 


VAX-11 Bliss-16 V4.0-579 
DISK $USER2: [MAZURCZYK. SOC JZQNA1. BLI; 1 


43 
0 (27) 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL TEXT SECTION 


040 123 
101 124 
117 116 
101 104 
122 105 
123 072 
000 
101 040 P.ABX: 
040 040 
040 101 
124 125 
114 040 
101 124 
040 075 
045 117 
045 101 
040 040 
040 105 
120 105 
124 105 
040 104 
124 101 
o75 040 
117 066 
116 000 
101 040 P.ABY: 
040 040 
040 040 
040 040 
040 040 
040 040 
040 040 
040 040 
040 040 
040 040 
115 111 
040 104 
123 103 
111 12C 
117 122 
040 040 
122 103 
104 
123 103 
111 120 
117 122 
045 116 
000 
101 040 P.ABZ: 
040 040 
040 106 
101 107 
117 


Fa 


2-Feb-1984 14:43:57 
2-Feb-1984 14:42:45 


ae * 0044 


VAX-11 Blies-16 V4.0-579 


DISK $USER2: [MAZURCZYK.SOC )ZQNA1 . BLT; eae 


44 
(27) 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL TEXT SECTION 


104 040 
040 040 
040 040 
040 040 
040 040 
040 040 
040 04S 
066 045 
040 040 
040 040 
040 040 
040 040 
045 117 
045 116 
101 040 P.ACA: 
040 040 
040 110 
107 110 
117 122 
105 122 
101 104 
122 040 
111 124 
040 040 
040 040 
040 045 
066 045 
040 040 
040 040 
040 040 
040 040 
045 117 
045 116 
101 040 P.ACB: 
040 040 
040 114 
127 040 
117 122 
105 L122 
101 104 
122 040 
111 124 
040 
040 040 
040 045 
066 045 
040 040 
040 040 
040 040 
040 040 
045 117 


G4 


2-Feb-1984 14:43:57 
22-Feb-1984 14:42:45 


wD 
o 


%SRASN ESAS SSS 


incising” * Yiedeiednaiin 
e. 


VAX-11 Bliss-16 V4.0-579 


= 
DISK$USER2: [MAZURCZYK.SDC]ZQNA1.BLI;1—— 


45 
(27) 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEXT SECTION 


045 


SSSSSREEEEEE 


[-) 
s && 


P.ACC: 


P.ACD: .ASCII 


P.ACE: .ASCII 


sAR SR AR ANR AS 
“8 
a 
i 


H4 


2-Feb-1984 14:43:57 
22-Feb-1984 14:42:45 


SEQ 0046 


VAX-11 Bliss-16 V4.0-579 


Page 
DISK $USER2: [MAZURCZYK.SDC ]ZQNA1.BLI;1 


(C2 


46 
7) 


CZQNAAO DEQNA FUNCTIONAL TES’ 


GLOBAL TEXT SECTION 


P.ACF: “ASCEE 


P.ACG: ASCII 


P.ACH: ASCII 


14 


2-Feb-1984 14:43:57 
2-Feb-1984 14:42:45 


4 &/ 
406% / 
4N/<00><00> 
/8A / 


_ “ey 


VAX-11 Bliss-16 V4.0-579 
DISK $USER2: [MAZURCZYK. SOC ]ZQNA1. BLI; 4 


47 
0 (27) 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL TEXT SECTION 


101 040 P.ACI: 
101 104 
124 122 
116 123 
111 124 
106 114 
107 040 
117 122 
040 101 
040 111 
117 04 
101 107 
040 101 
122 040 
040 045 
066 045 
000 
101 040 P.ACJ: 
101 104 
124 122 
116 123 
111 124 
123 124 
124 1 
040 127 
040 061 
101 124 
111 057 
120 
107 105 
101 104 
o75 
045 117 
045 116 
101 040 P.ACK: 
101 104 
122 105 
105 111 
105 
114 101 
040 127 
122 104 
101 124 
111 057 
040 120 
107 105 
101 104 
040 075 
045 117 
045 116 
000 


J4 


2-Feb-1984 14:43:57 
22-Feb-1984 14:42:45 


VAX-11 Bliss-16 V4.0-579 


SEQ 0048 
Page 
DISK $USER2: [MAZURCZYK, SDC )ZQNA1.BLI;1 


48 
(27) 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEXT SECTION 


P.ACL: 


P.ACN: 


P.ACO: 


-ASCITI 
A 


IK4 


22-Feb-1984 14:43:57 
2-Feb-1984 14:42:45 


/8A / 
/BAD/ 
7 RE/ 
/CEI/ 
/VE / 
/STA/ 
/TUS/ 
4 WO/ 
fiz# 
ZAT / 
41/¢<57>/0/ 
/ PA/ 


/068/ 


SEQ. 0049 
VAX-11 Bliss-16 V4.0-579 Page 49 
DISK$USER2:[MAZURCZYK.SDC]ZQNA1.BLI;1 (27) 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEYT SECTION 


“A 
P.ACP: .ASCII 


P.ACQ: -ASCII 


P.ACR: .ASCII 


L4 


SEQ 0050 
2-Feb-1984 14:43:57  VAX-11 Bliss-16 V4.0-579 Page 50 
2-Feb-1984 14:42:45  DISK$USER2:(MAZURCZYK.SOC)ZQNA1.BLI;1 (27) 


/06%/ 
/8A / 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL TEXT SECTION 


040 -ASCII 
122 .ASCII 
054 -ASCIT 
123 -ASCIT 
075 - ASCII 
117 -ASCIT 
116 -ASCIT 

-ASCII 
040 P.ACS: .ASCII 
000 -ASCIT 
110 P.ACT: .ASCII 
105 - ASCII 
123 -ASCIT 
117 -ASCII 
104 -ASCIT 
126 -ASCII 
125 -ASCITI 
000 -ASCIT 
045 P.ACU: .ASCII 
124 -ASCITI 
040 -ASCIT 
114 -ASCIT 
040 -ASCII 
060 -ASCIT 
124 -ASCII 
040 -ASCII 
045 -ASCIT 
045 -ASCIT 

-ASCIT 
045 P.ACV: .ASCII 
124 -ASCII 
040 -ASCII 
114 -ASCIT 

-ASCIT 
060 -ASCIT 
124 -ASCII 
040 -ASCIT 
045 -ASCIT 
045 at 
045 P.ACW: .ASCIT 
124 -ASCIT 
040 -ASCIT 
114 -ASCIT 
040 -ASCIT 
060 -ASCIT 
124 -ASCIT 
040 -ASCII 
045 -ASCIT 
045 -ASCIT 

-ASCII 
127 P.ACX: .ASCII 


M4 


22-Feb-1984 14:43:57 
22-Feb-1984 14:42:45 


ZALU/ 


SEQ 0051 


VAX-11 Bliss-16 V4.0-579 


DISK $USER2: (MAZURCZYK. SOC JZQNA1.BLI; .” 


51 
(27) 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL TEXT SECTION 


105 114 

131 040 

040 127 

111 124 

116 107 

123 122 P.ACY 
122 105 

111 123 

105 122 

106 101 

114 105 

040 124 

040 122 

123 120 

116 104 

000 

124 040 P.ACZ: 
116 103 

122 122 

103 124 

102 122 

114 105 

105 114 

116 045 P.ADA: 
040 040 

040 040 

040 111 

124 105 

122 125 

124 040 

124 040 

105 103 

040 045 

063 045 

040 102 

040 114 

126 105 

075 040 

117 061 

101 040 P.ADB: 
040 103 

115 120 

105 124 

104 040 

105 123 

000 

105 123 P.ADC: 
124 040 

111 104 

116 117 


N4 


2-Feb-1984 14:43:57 
2-Feb-1984 14:42:45 


VAX-11 Bliss-16 V4.0-579 


— 0052 


Page 52 
DISK$USER2:(MAZURCZYK.SDC)ZQNA1.BLI;1 (27) 


<N 


020226 
021226 
021246 
021262 
021272 


021272 
021273 


377 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEXT SECTION 


P.ADD: .ASCII 


P.ADE: ASCII 


RCV.O.LIST:: 
-BLKW 
XMIT.O.LIST:: 
.BLKW 
RCV .BUFFER:: 
-BLKW 
XMIT.BUFFER: ; 
-BLKW 
PHYS.ADR:: 
-BLKW 
SETUP .BUFFER: : 
-BLKW 
IOP. TABLE: : 
-BLKW 
ETH. STATION. ADR: 
-BLKW 
STATION.ADR:: 
BLKW 
PTRN. TABLE: : 


~ 
So 


4 


i) 
377 


BS 


2 -Feb-1984 
2 -Feb-1984 


14:43:57 
14:42:45 


SEQ 0053 


VAX-11 Blies-16 V4.0-579 


Page 
DISK $USER2: [MAZURCZ1K.SOC )ZQNA1.BLI;1 


53 
(27) 


hems 


SEQ 0054 
ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Blies-16 v4.0-579 Page 54 
v01.0 GLOBAL TEXT SECTION 2-Feb-1984 14:42:45 DISKSUSER2:(MAZURCZYK.SDC]ZQNA1.BLI;1 (27) 
021274 252 .BYTE 252 
021275 125 ‘BYTE 125 
021276 314 BYTE 314 
021277 063 BYTE 63 
021300 360 BYTE 360 
021301 017 BYTE 17 | 
021302 TARGET. ADR: : 
021302 000 .BYTE 0 
021303 000 BYTE 0 
021304 000 BYTE 0 | 
021305 000 BYTE 0 
021306 000 ‘BYTE 0 | 
021307 000 ‘BYTE 0 
021310 252 “BYTE 252 
021311 252 BYTE 252 
021312 252 BYTE 252 | 
021313 252 ‘BYTE 252 
021314 252 BYTE 252 
021315 252 BYTE 2 | 
021316 125 ‘BYTE 125 
021317 125 “BYTE 
1320 125 BYTE 125 
021321 125 BYTE 125 
021322 125 BYTE 125 
021323 125 ‘BYTE 1 
021324 377 ‘BYTE 377 
021325 377 ‘BYTE 377 
021326 377 ‘BYTE 377 | 
021327 377 ‘BYTE 377 
021330 377 ‘BYTE 377 | 
021331 377 ‘BYTE 377 
021332 252 ‘BYTE 252 
021333 000 BYTE 0 
021334 000 ‘BYTE 0 
021335 000 "BYTE 0 | 
021336 000 ‘BYTE 0 | 
021337 000 ‘BYTE 0 
021340 252 ‘BYTE 252 
021341 000 ‘BYTE 0 | 
021342 002 ‘BYTE 2 
021343 252 .BYTE 252 | 
021344 252 BYTE 252 
021345 252 BYTE 252 
021346 252 "BYTE 252 | 
021347 000 "BYTE 0 
021350 005 BYTE 5 
021351 125 ‘BYTE 125 
021352 125 ‘BYTE 125 
021353 125 -BYTE 125 | 
1 252 ‘BYTE 252 | 
021355 000 "BYTE 0 
021356 004 “BYTE 
021357 377 BYTE 377 
| 
! 
! 
| 
| 
1 


I 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL TEXT SECTION 


377 


ww 
vin 
un 


NmNoocosod 
uw 
fv 


S3s*° 


DS 


2-Feb-1984 
2 -Feb-1984 


14:43:57 
14:42:45 


_, 0055 


VAX-11 Bliss-16 V4.0-579 


DISK $USER2: [MAZURCZYK. SOC )ZQNA1.BLI; .- 


55 
(27) 


a 


SEQ 0056 
ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Page 56 
v01.¢6 GLOBAL TEXT SECTION 2-Feb-1984 14:42:45 DISK $USER2:(MAZURCZYK.SDC)ZQNA1.BLI:1 (27) 
021445 217 .BYTE 217 
021446 063 ‘BYTE 63 
021447 377 BYTE 377 
021450 22 
021472 BD.PROM.DESCR: 
021472 100000 - 100000 
021474 100000 .WORD  -100000 
021476 000200' .WORD RCV.BUFFER 
021500 174000 .WORD  -4000 
021502 000000 .WORD 0 | 
021504 000000 .WORD 0 
021506 100000 .WORD  - 100000 
021510 100000 .WORD  -100000 
021512 010200° .WORD XMIT.BUFFER 
021514 174000 .WORD  -4000 
021516 000000 “WORD 0 | 
021520 000000 .WORD 0 
021522 100000 .WORD  -100000 | 
021524 020000 . WORD 
021526 000000 .WORD 0 
021530 000000 .WORD 0 
021532 HWP. TABLE: : | 
-BLKW 1 
021534 SWP . TABLE: : | 
021536 CLK.ADR: : | 
.BLKW 1 
021540 CLK. TYPE: : ‘ | 
021542 CLK.VEC:: . | 
021544 CLK.CSR:: | 
.BLKW 1 | 
021546 CLK.START:: 
.BLKW 
021550 CLK .HERTZ:: 
.BLKW | 
021552 TICKS:: .BLKW 1 
021554 000000 SECONDS: : “ | 
021556 000000 MINUTES: : 5 
021560 CANCEL. TIMER: : 
.BLKW 1 
021562 XBUF .LENGTH: : 
.BLKW 1 
021564 RBUF .LENGTH: : 
.OLKW 
021566 eS Fa Sees " 
021570 MEM. SIZE:: ° 


| 
-BLKW 
021572 INTERRUPT .FLG: : 


— 


OC eC 





ZQNA1 

v01.0 

021574 
021576 
021600 
021602 
021604 
021606 
021610 
021612 
021614 
021616 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEXT SECTION 


KW 


REG. ADR 

IOP DATA: : 
GET.ADR: : 
TMP . IOP. ADR 


a . BLKwW 
PS:: -BLKW 
TBYTE1:: .BLKB 


BIT1S<-= 
BIT14=< 
BIT13<< 
BIT12== 


‘>? 


2-Feb-1984 14:43:57 
2-Feb-1984 14:42:45 


SEQ 0057 
VAX-11 Bliss-16 V4.0-579 Page 57 
OISK$USER2:[MAZURCZYK.SOC)ZQNA1.BLI;1 (27) 


ee ee ee ee ee ee 


LSSOFT, TSPTHV, LSRPT, LSINIT 
LSCLEAN, LSLAST, L#HARD, LSDvTYP 
LSDESC, L$DU, LAU, LSAUTO, T1 
T2, T3, 14, TS, 16, T7 


ZQNA1 
v01.0 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL TEXT SECTION 


BIT11== 
BIT10== 
BITO9== 
BITO8== 
BITO7== 
BITO6== 
BITOS== 
BITO4== 
BITO3== 
BITO2== 
BITO1== 
BITOO== 
BIT9== 
BIT6== 
BIT7== 
BIT6== 
BITS== 
BIT4== 
BIT3S== 
BIT2== 
BIT1i== 
BITO== 
EF .START== 


EF .RESTART== 
EF .CONTINUE == 


EF .NEWs= 
EF .PWRe= 
PRIG7== 


LSDEPO== 


G5 


2-Feb-1984 


14:43:57 


22-Feb-1984 14:42:45 


ERRTYP 
LSSWLEN+2 
LSHWLENe-2 
LSREV+l 


VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK. SDC ]ZQNA1.BLI;1 


—., 0058 


58 
(27) | 


H5 


-_. 0059 
ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Page 59 
v0O1.0 GLOBAL TEXT SECTION 22-Feb-1984 14:42:45 DISK$USER2:(MAZURCZYK.SDC]ZQNA1.BLI;1 (27) 

000154' HWPTBL == LSHWLEN+2 
000164' SWPTBL == L$SWLEN+¢2 
000000 ' DESCR.LIST== RCV.O.LIST 
000200' DATA.BUFFER== RCV.BUFFER 
000000' QsTOl== P.AAA 
000030' QSTO2+= P.AAB 
000060 QSTO3== P. AAC 
000110' QSTO4== P .AAD 
000162’ QsTOS== P.AAE 
000224 ' QSTO6== P.AAF 
000226' QSTO7== P . AAG 
000230' QSTO8== P.AAH 
000232' QSTO9== P. AAI 
000234' DBMO1== P.AAJ 
000272' OBMO2== P .AAK 
000316' DBMO3S== P.AAL 
000344' DBMO4 == P.AAM 
000374 DBMOS== P.AAN 
000430‘ OBMO6== P.AAO 
000464' DBM33== P. AAP 
000524' OBM34<= P.AAQ 
000562' DOBM3S== P.AAR 
000634‘ OBM36== P.AAS 
000700' OBM37== P.AAT 
000744: OBM38== P. AAU 
001026‘ DBM39== P.AAV 
001072’ DBM40<= P. AAW 
001136‘ OBMN41«= P,AAX 
001222' DBM42<s P.AAY 

1250' OBM435== P.AAZ 
001334' 06M44<« P.ABA 
001422' 0BM45=<= P.ABB 
001460' OBM46<= P.ABC 
001522’ ERRO1L<-= P.ABD 
001570' ERRO2== P. ABE 
001630’ ERROS== P.ABF 
001664' ERRO4s= P.ABG 
001740' ERROS== P.ABH 
002022' ERRO6== P.ABI 
002026 ' ERRO7== P.ABJ 
002032’ ERROS=< P.ABK 
002036' E0001== P.ABL 
002072' E0101== P.ABM 
002154' E020i== P.ABN 

2240' E0202== P.ABO 
002324' E0301+= P. ABP 

406‘ E0401+= P.ABQ 
002472' E0S01+= P.ABR 
002562‘ E0S02== P.ABS 
002650' E05035<= P.ABT 
002746' E0601=*= P. ABU 
003032’ E0601-= P. ABV 
003116’ MSGO1== P. ABW 


LAPT EN Sl A Boies alo 


[5 


_, at 

ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 60 
v0O1.0 GLOBAL TEXT SECTION 2-Feb-1984 14:42:45 DISK$USER2: [MAZURCZYK. SOC J)ZQNA1.BLI; a oe 627) 

003200' MSGO2== P.ABX 

003266' MSGO3== P.ABY 

003372' MSGO04 == P.ABZ 

003464' MSGO5== P.ACA 

003556' MSGO06== P.ACB 

003650' MSGO7== P.ACC 

003742' MSGO8== P.ACD 

004034' MSGO9== P.ACE 

004126' MSG102= P.ACF 

004200' MSG1li== P.ACG 

004254' MSG1l2== P.ACH 

004332' MSG13== P.ACI 

004414' MSG14== P.ACJ 

004500' MSG15== P.ACK 

004562' MSG16<= P.ACL 

‘ MSG17== P.ACM 
004734: MSG18== P.ACN 
004760' MSG19== P.ACO 
. MSG20== P.ACP 

005136‘ MSG21<= P.ACQ 

005216' MSG22=s P.ACR 

005 . MSG23e= P.ACS 

005310’ MSG.1TDR== P.ACT 

005340' MSG.2TOR== P.ACU 

005400' MSG.3TOR== P.ACV 

005440' MSG .4TOR== P.ACW 

005500’ MSG .PWR== P.ACX 

005526' MSG.CSR== P.ACY 

005566’ MSG .BR== P.ACZ 

005614' MSG.INI== P.ADA 

0056 76' MSG.END== P. ADB 

005722‘ MSG.CLR== P.ADC 

005762’ MSG .NXM== P.ADD 

006024: MSG.LEN== P. ADE 
3 PSECT SUMMARY 
; 
3 Psect Name Words Attributes 
F $CODE$ 63 RO, I , LCL, REL, CON 
8 $GLOBs 4570 RW, DO ., LCL, REL, CON 
3 sPLIT$ 1559 RO, O , LCL, REL. CON 
Fy Librery Stetistices 
8 
; ne a vi) en i Symbols -------- Pages Processing 
r} File Totel Loaded Percent Mapped Time 
$ 
; OISKSUSER2: [MAZURCZYK.SDC JGNALI8.L16;2 


J5 


=, 0061 

ZQNA1 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:43:57 VAX-11 Bliss-16 V4.0-579 Page 61 
v01.0 GLOBAL TEXT SECTION 2-Feb-1984 14:42:45 DISK$USER2: : [(MAZURCZYK. SOC JZQNA1.BLI;1 (27) 
3 1S7 65 41 12 00:00.1 
3 COMMAND QUALIFIERS 

Size: O code + 6192 date words 

Run Time: 00:22.7 

Elapsed Time: 01:06.8 

Lines/CPU Min: 7019 


Nema tat Min: 35327 


223 pages 


—— i thetten ion i Complete 


| 
BLISS/PDP11 ZQNA1.BLI/LIST=ZQNA1 .LIS/OBJECT =ZQNA1 . OBJ/SOURCE =PAGE : 53 


SP ih s care ar eee ska oe 


K-RKreerOOO0C0O0 


KS 


CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:07 VAX-11 Bliss-16 V4.0-579 


MODULE ZQNA2 (STITLE ‘CZQNAAO DEQNA FUNCTIONAL TEST’ 
IDENT = ‘VO1.0', 
ADDRESSING _MODE( ABSOLUTE ) 


)= 
SSBTTL ‘PROGRAM INIT MODULE’ 


BEGIN 
LIBRARY ‘QNALIB'; ! QNALIB LIBRARY 
REQUIRE ‘BLSMAC.REQ' ; ! DIAGNOSTIC SUPERVISOR LIBRARY 


oe 
2-Feb-1984 14:42:46 DISK$USER2:[MAZURCZYK.SDC]ZQNA2.BLI:1— 


2 ooo ee ee ee he pe po pe pe 


LS 


2-Feb-1984 14:45:07 
22-Feb-1984 14:42:46 


CZQNAAO DEQNA FUNCTIONAL TEST 
EXTERNAL DECLARATIONS 


SSBTTL ‘EXTERNAL DECLARATIONS’ 
!<BLF /FORMAT > 


PSECT 
CODE = AASCODES; 


FORWARD ROUTINE 


CLK_INT : L$ISR NOVALUE, 

NXM_INT : L$ISR NOVALUE; 
EXTERNAL ROUTINE 

RESET _DEQNA : NOVALUE; 


SEQ 0063 
VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK. SDC ]ZQNAZ.BLI;1 


2 
(2) 


; 


vo1.0 


es Ge Ge Ge GH Ge Gs Gs Ge Ge Ge GH Gt GH Ge Gs Gs GH Ge GH Gt Gs Gs GE GF Gs GH Ge Ge Gs Gs Ge Ge GF Ge Gs OF GF Gs GF GH Ge GH GF Gs GH Ge OF GF Gt oe GF oF 


FEO Ee Ee Pa ed be ae ft PP pa bee pe Pa PD peo RD be fo fab Pe ft be fd eb ped bP ped bed eS pd ed hd he pe pO he pd ped pe pe pe 


M5 


2-Feb-1984 14:45:07 
2-Feb-1984 14:42:46 


CZQNAAO DEGQNA FUNCTIONAL TEST 
EXTERNAL DECLARATIONS 


fee 


H EXTERNAL DATA USED BY THIS MODULE 
Sus 

EXTERNAL 

fee 

: COMMUNICATION AREA DECLARATIONS 


COMMUNICATION AREA DECLARATIONS 


TOP _TABLE : VECTOR [ 8, WORD }, 
See 
: HARDWARE P-TABLE STORAGE DECLARATIONS 
HWP _ TABLE : REF BLOCK [ HWP_SIZE, WORD ] FIELD ( HWP_FIELDS ), 
See 
: SOFTWARE P-TABLE STORAGE DECLARATIONS 
SWP _ TABLE : REF BLOCK [ SWP_SIZE, WORD ] FIELD ( SWP_FIELDS ), 
See 
: SYSTEM CLOCK STORAGE DECLARATIONS 
TICKS WORD, $ CLOCK RATE 
SECONDS : WORD, § STORE SECONDS 
MINUTES : WORD, § STORE MINUTES 
CANCEL _TIMER : WORD, q 
CLK_vEC : WORD, ' CLOCK INTERRUPT VECTOR ADR 
_CSR : WORD, ! STORE CSR ADDR FOR CLOCK HERE 
CLK _START : WORD, $ STORE CLOCK START VALUE 
a TZ : WORD, $ TOTAL @ OF CLOCK INTERRUPTS 
al : WORD, $ LOC. TO RETURN CLOCK ADOR. 
CLK_TYPE : WORD, : TYPE OF CLOCK ON SYSTEM 


MISCELLANEOUS DATA DECLARATIONS 


FREE _MEM_ADR : WORD 
MEM_SIZE : WORD, ! FREE MEMORY SIZE 


CO=NONE , -1*L -CLOCK,1=P_CLOCK) 


’ ! FREE MEMORY BEGIN ADR 


SEQ 0064 
VAX-11 Bliss-16 V4.0-579 Page 3 
DISK $USER2: [MAZURCZYK.SOC JZQNA2.BLI;1 (3) 


NS 


SEQ O0€S 
ZQNA2 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:07 VAX-11 Bliss-16 V4.0-579 Page 
v01.0 EXTERNAL DECLARATIONS 2-Feb-1984 14:42:46  DISKSUSER2:(MAZURCZYK.SDC]ZQNA2.BLI;1 (3) 
: 1568 1 INTERRUPT _FLG : WORD, ! 1 = INTERRUPT OCCURED 

g 

; 1570 1 REG_ADR : REF REG_STR FIELD ( IOP_FIELDS ), 

; 1571 1 IOP_DATA : REF REG_STR FIELD ( IOP_FIELDS ), 

; 1572 1 4 : REF ADR_STR FIELD ( IOP_FIELDS ), 

; 1573 1 

; 1574 1 : 

1575 1 ! TEMPORARY STORAGE DATA DECLARATIONS 

. c) 

; 1577 1 

; 1578 1 TMP _IOP_ADR : WORD, ! I/O PAGE REGISTER ADDRESS 

; 1579 1 TMP _REG_DATA : WORD, ! I/0 PAGE REG CONTENTS 

; 1580 1 TEMP1 : WORD, ! TEMPORARY STORAGE LOCATION 

; 1581 1 TEMP2 : WORD, ! TEMPORARY STORAGE LOCATION 

; 1582 1 TEMP3 : WORD, ! TEMPORARY STORAGE LOCATION 

; 1583 1 TEMP4 : WORD, ! TEMPORARY STORAGE LOCATION 

; 1584 1 TEMPS : WORD, ! TEMPORARY STORAGE LOCATION 

; 1585 1 TEMP6 : WORD, ! TEMPORARY STORAGE LOCATION 

; 1586 1 TEMP? : WORD, ! TEMPORARY STORAGE LOCATION 

; 1587 1 TEMPS : WORD, ! TEMPORARY STORAGE LOCATION 

: 1588 1 TEMPS : WORD, ! TEMPORARY STORAGE LOCATION 

Hy 


PPP PLP PPP PPP PPP PPP OP PO -_ mi 


‘ 


ee Gf Ge Gs G+ Gs GF OF Ge Ge GF GF GF OF Ge OF GF Ge Gs a OF oF oF 


Oo ee ee ee he he he me he he ee he he he ee he pe pe pe pe 


Be 


CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:07 
EXTERNAL DECLARATIONS 2 -Feb-1984 14:42:46 
Soe 

: DEBUG MESSAGES DECLARED EXTERMALLY 


DBMO1 . DBMO2 , DBMO3 , DBM04 , DBMOS , DBM06 ,DBM33,08M34 ,DBM35 ,D8M36,08M37, 
DBM38 ,08M39,DBM42, 


ERRO1 .ERRO2, ERROS, 

Soe 

: OIAGNOSTIC ERROR MESSAGES DECLARED EXTERNALLY 
MSG_PUR, 

See 


: QUESTIONS DECLARED EXTERNALLY 


QSTO1, QSTO2, QSTO3, QSTO4, QSTOS, QSTO7, QSTO8, QSTO9; 


SEQ 0066 
VAX-11 Blies-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK. SDC )ZQNA2. LI;1 


be 
(4) 


<n 
¢: 
~ 


he ho ee pe pe pe pe ee pe pe he pe pe 


Co 


2-Feb-1984 14:45:07 
2-Feb-1984 14:42:46 


CZQNAAO DEQNA FUNCTIONAL TEST 
TYPE AND DESCRIPTION 


SSBTTL ‘TYPE AND DESCRIPTION’ 


6 
: NAMES OF DEVICES SUPPORTED BY PROGRAM 


EQUALS; 
DEVTYP (sASCIZ‘ DEQNA/M7504' ); 


fee 


: TEST DESCRIPTION 


DESCRIPT (sASCIZ'DEQNA FUNCTIONAL TEST’); 


SEQ. 0067 
VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK . SDC JZQNA2.BLI; 1 


6 
(S) 


ee G+ G+ Ge Ge Ge G+ Gt Ge Ge Gt Gt Gt Gt Gt Ge Ge Gt Gt Gt Ge Gt GF GF 
NN ee de ee dd dd 


Dé 
SEQ 0068 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:07 VAX-11 Blies-16 V4.0-579 Page 7 
HARDWARE PARAMETER CODING SECTION 22-Feb-1984 14:42:46 DISK $USER2: [MAZURCZYK .SOC )ZQNA2.BLI;1 (6) 


SSBTTL ‘HARDWARE PARAMETER CODING SECTION’ 


* 
° 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


THIS CODE IS USED BY THE SUPERVISOR TO INTERROGATE THE OPERATOR 
FOR DEVICE INFORMATION TO PUT IN THE P-TABLE. THIS CODE IS USED 
IN CONJUNCTION WITH THE DEFAULT P-TABLE TEMPLATE. THE MACROS 
USED IN THIS SECTION ARE “GPRMD”, “GPRMA” 


3 
GPRMA (QSTO1, #0'0', O, #80'174440', #0'174460', YES, 1); ! I/0 PAGE ADDRESS 
CQSTO2, #0'2', 0, #0'700', #0'704', YES, 1); ! INTERRUPT VECTOR ABOR ? 
NDHRD ; 


er oe os GF os Ge oF GF GF Gs OF OF OF OF oF OF 


2 ee ee ee he pe pe be ee pe pe 


E6 
SEQ 0069 | 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:07 VAX-11 Bliss-16 V4.0-579 P 


8 

SOFTWARE PARAMETER CODING SECTION 2-Feb-1984 14:42:46 DISKSUSER2:[MAZURCZYK.SDC]ZQNA2.BLI;1 > «7) | 
SSBTTL ‘SOFTWARE PARAMETER CODING SECTION’ 

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 


fee 

0 

? THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
' 
: 
$-- 
: 


INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNSF T; 


ort CQSTOS, #0'0O', #0'1', YES, 1); ! DO YOU WANT TO DO MANUAL INTERVENTION 
3 


ies en eam 


<N 
3 
ray 
°o 


-- ©: @+ @f @+ G+ Ge GF G+ Gs Ge G+ Gt Be Gt Gt Ge Ge Gt GF Ge GF GF 
mr 
oS 
~ 
o 
KRM NNR RRR NNN NNN RP RRR Ree eR 


F6 


_, 0076 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:07 VAX-11 Bliss-16 V4.0-579 Page 9 | 
REPORT CODING SECTION 22-Feb-1984 14:42:46 DISK $USER2: [MAZURCZYK SDC JZQNA2. BLI;1 (8) | 


SSBTTL ‘REPORT CODING SECTION’ 


: THE REPORT CODING SECTION CONTAINS THE 

H “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 

ei. 

BGNRPT; 

TEMP1 = 1; 

!PRINTF (DBMO2); '*REPORT CODE SECTION’ 


t 
1 THIS SECTION CONTAINS THE CODE FOR PRINTING 

? STATISTICAL INFORMATION GATHERED BY THE DIAGNOSTIC. IT IS 

2 EXECUTED BY THE OPERATOR COMMAND “PRINT” OR BY THE MACRO CALL 
2 “DORPT”. USE THE PRINTS MACRO TO PRINT THE INFORMATION. 

3 USE FORMAT STATEMENTS AS IN THE PRINTB/PRINTX MACROS. IT IS 
2 THE PROGRAMMER'S RESPONSIBILTY TO DEVISE AND IMPLEMENT THE 

: FORM AND CONTENT OF THE STATISTICS. 


ENDRPT; 
-TITLE ZQNA2 — DEQNA FUNCTIONAL TEST 
-IDENT /V01.0 
-ENABL AMA 
-PSECT sCODE$, RO 
105 121 LSOVTYP:: 
-ASCII /DEQ/ 
065 -ASCII /M75/ 
064 000 -ASCII /04/<00> 
-BLKB 
105 121 LSDESC::.ASCII /DEQ/ 
101 040 ‘ II / 
116 -ASCII /FUN/ 
124 111 -ASCII /CTI/ 
116 101 -ASCII /ONA/ 
124 -ASCII /L T/ 
123 124 -ASCII /EST/ 
-ASCII <00> 
KB 2 
LSHROLN: : 
. WORD <<<L SNOHRD -L SHRDLN>/2>-1> 
GPéi:: .WORD 31 
-WORD QSTO1 
. WORD -3340 
WORD -3320 
GPte:: WORD 1031 


~ 
° 
~ 
g 
od 
Bb 
5 
BS 
a) 
3 
A 
w 
~ 
wv 


ee -  — -- e 


CZQNAAO DEQNA FUNCTIONAL TEST 


REPORT CODING SECTION 


LSNDHRD: : 


LSSFTLN:: 
. WORD <<<LSNDSFT-L$SFTLN>/2>-1> 
LSNOSFT:: 
.BLKW 1 


BIT1S=«= 
BIT14== 
BIT13== 
BIT12== 
BITli-= 
BIT10<= 
BITO9== 
BITOS== 
BITO7== 
BITO6== 
BITOS== 
BITO4== 
BITOS=«= 
BITO2+= 
BITO1s= 
BITOOs= 
BIT9== 
BIT6== 
BIT7== 
BIT6== 
BITS== 
BIT4s=s 
BIT3=«= 
BIT2=+= 
BITis= 
BITOs= 


G6 


2-Feb-1984 14:45:07 VAX-11 Blies-16 V4.0-579 


SEQ 0071 


10 , 
22-Feb-1984 14:42:46 DISK $USER2: [MAZURCZYK . SOC JZQNA2.BLI; (8) 


-WORD QSTO2 

-WORD 700 

-WORD 704 
BLKW 1 


-GLOBL RESET.DEQNA, IOP.TABLE, HWP. TABLE 
-GLOBL SWP.TABLE, TICKS, SECONDS, MINUTES 
-GLOBL CANCEL.TIMER, CLK.VEC, CLK.CSR 
-GLOBL CLK.START, CLK.HERTZ, CLK.ADR 
-GLOBL CLK.TYPE, FREE.MEM.ADR, MEM.SIZE 
-GLOBL INTERRUPT.FLG, REG.ADR, IOP.DATA 
-GLOBL GET.ADR, TMP.IOP.ADR, TMP.REG.DATA 
-GLOBL TEMP1, TEMP2, TEMPS, TEMP4, TEMPS 
-GLOBL TEMP6, TEMP7, TEMP6, TEMPS, DBMO1 
. OBMO2, DBMOS, DBMO4, DBMOS. DBMO6 
-GLOBL OBM33, DBN34, DBM3S, DBM36, D0BM37 
-GLOBL O6M38, = oye DBM42, ERRO1, ERRO2 
-GLOBL ERROS, MSG.P QSTO1, QSTO2, QSTO3 
-GLOBL QSTO4, asTos. QSTO7, Q@STO8, QSTO9 


ZQNA2] 
vO1.0 


3; Maximum steck 


s Routine Size: 
3; Maximum steck 


H6 


CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:07 
REPORT CODING SECTION 22-Feb-1984 14:42:46 
EF .START== 40 
EF .RESTART == 37 
EF .CONTINUE== 36 
EF .NEW== 35 
EF .PWR== 34 
PRIO7== 340 
PRIO6== 300 
PRIOS== 240 
PRIO4== 200 
PRIO3== 140 
PRIO2== 100 
PRIOL== 40 
PRIOO== ie) 
EVL== 4 
LOT== 10 
ADR== 20 
I0U== 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT== 1000 
PRI== 2000 
IXEe= 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE == - 100000 
LSHARD== LSHROLN+2 
L$SOFT== LSSFTLNe2 


-SBTTL LRPT REPORT CODING SECTION 
-PSECT AASCODES, RO 


000001 000000G LRPT: MOV #1, TEMP1 
RTS PC 
4 words, Routine Bese: AASCODES + 0000 
depth per invocation: O words 
-SBTTL LSRPT REPORT CODING SECTION 
000000 ' LSRPT:: JSR PC,.LRPT 
TRAP 25 
RTS PC 
4 words, Routine Base: AASCODES + 0010 
depth per invocation: 2 words 


SEQ 0072 
VAX-11 Bliss-16 V4.0-579 P 


age 11 
DISK $USER2: [MAZURCZYK.SDC JZQNA2.BLI;1 (8) 


3 1677 
3 1665 
H 1677 


es 6s Ge Ge Ge Gs Ge Ge Ge GP Ge GF GF Ge GH Gs Gt Gs GH Gs Ge Ge Ge GE GF GF Ge GF Gs Gs GF GF Gs GH GH Gt Ge Gt OF OF BH GF GF GF GH GF Ge GF GF Ge BH aH OF 
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2-Feb-1984 14:45:07 
22-Feb-1984 14:42:46 


CZQNAAO DEQNA FUNCTIONAL TEST 
INITIALIZE SECTION 


SSBTTL ‘INITIALIZE SECTION’ 


See 


: THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
: AT THE BEGINNING OF EACH PASS. 
BGNINIT; 


° 
* 


THE INITIALIZE CODE IS EXECUTED UNDER FIVE CONDITIONS. THERE 
ARE SUPERVISOR EVENT FLAGS THAT ARE USED TO LET THE 
DIAGNOSTIC KNOW UNDER WHICH CONDITION THE EXECUTION IS TAKING 
PLACE. THE EVENT FLAGS ARE READ USING THE “READEF” MACRO. 
THE CONDITIONS UNDER WHICH THE INIT CODE IS EXECUTED AND THE 
CORRRESPONDING EVENT FLAGS ARE: 


START COMMAND EF .START 
RESTART COMMAND EF .RESTART 
CONTINUE COMMAND EF . CONTINUE 
POWERDOWN/POWERUP EF .PWR 


NEW PASS EF .NEW 
EXAMPLE OF EVENT FLAG USE: 
IF READEFCEF. ye ris THEN 
START_FLAG = 


A HEADER LOCATION: “LSUNIT”. 


LOCAL 
START_FLAG, ! SET IF THIS PASS IS A START 
DELAY _MULT; ! CONTAINS DELAY FACTOR 

$ X_IOTC); 


{PRINTF (OBMO1); 
SETPRI (PRIO7); 


DURING THE INIT CODE, Use THE “GPHARD” MACRO TO OBTAIN P-TABLE 
INFORMATION FOR DEVICE TESTING. GET ONE UNIT'S INFORMATION IF 
THIS IS A SEQUENTIAL DIAGNOSTIC. NUMBER OF UNITS AVAILABLE IS IN 


—, 0073 
VAX-11 Bliss-16 V4.0-579 Page 
DISK$USER2: [MAZURCZYK. SDC ]ZQNA2. BLI;1 


! PRIORITY 7 - NO INTERRUPTS ALLOWED 
START_FLAG = CLEAR_FLG; ! CLEAR FLAG BEFORE TESTING IT 


*— CEF _PUWR) ! ARE WE HERE BECAUSE OF POWER FAIL? 


BEGIN 
PRINTF (MSG_PWR); 
INCR COUNT FROM O TO 60 DO 
BEGIN 


DELAY _MULT = 10000; 
DELAY ( ,DELAY “MULT: 
BREAK ; 


ENO; 
END; 


“POWER DELAY - WAITING” 
WAIT APPROX. 60 SECONDS 


! BREAK FOR APT 


13 
(9) 


‘ 
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CZQNAAO DEQNA FUNCTIONAL TEST 
INITIALIZE SECTION 


IF READEF CEF_START) ' 
THEN 
BEGIN 
H PRINTF (CDBMO2); ! 
START_FLAG = TRUE; 
END; 
IF READEF CEF_RESTART) ! 
THEN 
: PRINTF (DBMO3); $ 
IF READEF CEF_CONTINUE) H 
THEN 
H PRINTF (DBMO4); ! 


MAKE SURE THAT ONLY ONE (1) DEQNA 


= 


F .LSUNIT GTRU 1 
HEN 


BEGIN 

PRINTF CERROS); ! 
DOCLN; 
END; 


¢¢ 


P CLOCK, GET IT’S PARAMETERS. 


CLK_TYPE = NO_CLOCK; H 
IF CLOCK (P, CLK_ADR) : 
THEN 
BEGIN 
CLK_TYPE = P_CLOCK; i 
CLK_CSR = ..CLK_ADR; ' 
CLK_HERTZ = .C.CLK_ADR + 6); : 
CLK_START = #0'105'; 4 
‘ PRINTF (DBM36); ' 
ELSE 
BEGIN 
IF CLOCK (L, CLK_ADR) 3 
THEN 


BEGIN 


J6 


2-Feb-1984 14:45:07 
2-Feb-1984 14:42:46 


IS THIS A START ? 
‘START COMMAND‘ 

IS THIS A RESTART ? 
‘RESTART COMMAND’ 


IS THIS A CONTINUE ? 
‘CONTINUE COMMAND’ 


HAS BEEN SPECIFIED. 


MORE THAN 1 UNIT ? 
‘ERROR - TOO MANY UNITS‘ 


VAX-11 Bliss-16 V4.0-579 


-, ae 


DISK $USER2: [MAZURCZYK.SDOC JZQNA2.BLI; a 


RETURN TO SUPERVISOR AND CLEAN UP 


CHECK TO MAKE SURE THERE IS A CLOCK ON THE SYSTEM. IF NO_CLOCK, 
ay TO SUPERVISOR. OTHERWISE, DETERMINE WHETHER CLOCK IS AN L OR 


SET FLAG FOR NO CLOCK 
IS THERE A P_CLOCK ? 


SET THE FLAG FOR P_CLOCK 
ADDRESS 

SAVE THE STARTTING CLOCK VALUE 

*P-CLOCK ON THE SYSTEM’ 


IS THERE AN L_CLOCK ? 


14 
(9) 


| 
| 
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CZQNAAO DEQNA FUNCTIONAL TEST 
INITIALIZE SECTION 


CLK_TYPE = L_CLOCK; ! SET THE FLAG FOR L_CLOCK 
CLK_CSR = ..CLK_ADR; ! SAVE THE CSR ADDRESS 
CLK_HERTZ = .C.CLK_ADR + 6);! GET THE CLOCK RATE 

: SAVE THE STARTING CLOCK VALUE 


: “ee (€08M37); ! '‘L-CLOCK ON THE SYSTEM’ 
END; 
IF ——-"™ EQLU NO_CLOCK ! IF NO CLOCK WAS FOUND 
BEGIN 
PRINTF CERRO1); ' ‘NO CLOCK WAS FOUND ON THE SYSTEM’ 
DOCLN; ! ABORT THE PROGRAM 
END 
ELSE 
BEGIN 
CLK_VEC = .(.CLK_ADR + ! GET CLOCK VECTOR ADDRESS 


4); 
SETVEC (.CLK_VEC, CLK_{SivT, PRIOS); 
SET VECTOR € INTERRUPT SERVICE ADDR. 
: — (DBM38, .CLK_VEC, .CLK_ADR);" ! ‘CLOCK VECTOR AND CLOCK ADR’ 
a 


: DETERMINE THE FREE MEMORY STARTING ADDRESS AND SIZE 


MEMORY (FREE _MEM_ADR); ! FIND FREE MEMORY STARTING ADR 
MEM_SIZE = .FREE_MEM_ADR; ! DETERMINE FREE MEMORY SIZE 


¢ 
> 


CLEAR HARDWARE P-TABLE ON A START BEFORE DOING THE GPHARDS 


-. a -FLAG OR READEF (EF _NEW) OR READEF (EF _CONTINUE) 
! IF THIS IS A START 


™SEGIN 
LOCAL TABLE_POINTER; 


INCR INDEX FROM O TO HWP_SIZE BY 2 DO 


! ZERO OUT THE TABLES 
C(HMP_TABLE + . INDEX) = 0; 


° 
° 


GET BASE ADDRESS OF HARDWARE P-TABLE AND DEQNA I/O PAGE 


sal pas ( 0, TABLE_POINTER ) NEQU O ! GET P-TABLE ADDRESS 


2-Feb-1984 14:45:07 VAX-11 Bliss-16 V4.0-579 Page 
2-Feb-1984 14:42:46  DISK$USER2:[MAZURCZYK.SDC]ZQNA2.BLI;1 


-, 0075 
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INITIALIZE SECTION 22-Feb-1984 14:42:46 DISK$USER2: [MAZURCZYK.SOC )ZQNA2.BLI;1 (9) 
BEGIN 
IOP_DATA = .HWP_TABLE [ ADDR ]; 
HWP_TABLE «= » TABLE POINTER; ' SAVE HW P-TABLE ADDRESS 
REG_ADR = ,HWP _TABLE { ADDR }; ' SAVE I/0 PAGE BASE ADDRESS 
GET_ADR = ,HWP_TABLE [ ADDR ]; ! SAVE I/0 PAGE BASE ADDRESS 
: PRINTF (DBM39, tw “ TABLE[ ADDR}, -HWP_TABLE[VEC], .HWP_TABLE(BRL)); 
TMP_IOP_ADR = Mg { ADOR i; 
INCR INDEX FROMO. 0 To 7 DO 
BEGIN 
IOP_TABLE ({ .INDEX ] = .TMP_IOP_ADR; 
TMP_IOP_ADR = .TMP_IOP_ADR + 2; 
: PRINTF € DBM42, .IOP_TABLE ({ . INDEX ) ); 
END; 
END; 
END; 
RETURN; 
ENDINIT; 
-GLOBL LSDLY 
-SBTTL CLINIT INITIALIZE SECTION 
000000G LINIT: od tise VE4 3 1690 
000340 MOV #340 ,RO 3 1732 
TRAP 41 
CLR Rg 3; START.FLAG 1733 
000034 MOV @34,RO Fy 1735 
TRAP 47 
BHIS 6$ 
0000C0G MOV @MSG .PWR, -( SP) F 1738 
000001 MOV #1,- ) 
MOV SP ,RO 3: SP,« 
TRAP 17 
000075 MOV #75,R2 3; *, COUNT 1740 
023420 1%: MOV €23420,R3 s *,DELAY.MULT 1742 
MOV R3,R1 ; DELAY.MULT,$$TMP2 1743 
2s: BEQ 5% 
000000G MOV LSDLY,RO 3 *, $$TMPL 
BEQ 4$ 
000004 3%: CLR 4(SP) 3: $$TMP 
soB8 RO, 3% 3 $$TMP1,« 
4t: OEC R1 3 $sTMPe 
BR 2s 
S$: TRAP 22 
soB R2,18 ; COUNT,« 1740 
CMP CSP)+,CSP)+ F 1737 
000040 6%: MOV #40 ,RO 3 1748 
TRAP 47 
BHIS 7% 
000001 MOV @1,R4 3 *,START.FLAG 1752 
000037 7$: MOV #37,RO 3 1755 


CZQNAAO DEQNA FUNCTIONAL TEST 
INITIALIZE SECTION 


000036 


000035 


9$: 


10%: 


118: 


12%: 


13%: 
14%: 


M6 


22-Feb-1984 14:45:07 
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47 
8$ 
#36 ,RO 
47 


8$ 
CLK. TYPE 
#120,RO0 
62 


9$ 

RO,CLK.ADR 
#1,CLK. TYPE 
CRO),CLK.CSR 
6C(RO), CLK .HERTZ 
— 


#114,RO0 

62 

10$ 

RO,CLK.ADR 
#1,CLK. TYPE 
CRO),CLK.CSR 
6(RO),CLK.HERTZ 


#100,CLK.START 


37 
4572 .CEP 9s 


1 
RO, FREE .MEM. ADR 
RO,MEM. SIZE 


13% 

@35,RO0 

47 

13% 

#36,RO 

47 

16% 

RO 

HWP . TABLECRO) 
#2,R0 


SEQ 0077 
VAX-11 Bliss-16 V4.0-579 Page 17 
DISK $USER2: [MAZURCZYK .SOC JZQNA2.BLI;1 (9) 


H 1759 


RO,* 
CLK.ADR,« 1790 


se ef G+ Ge oe Ge oe 
fi 
i | 
0 
rary 


RO,* 
CLK.ADR,+* 1802 


; SP,* 


3; FREE.MEM.ADR,« 1830 
: START.FLAG 1838 


s INDEX 1843 
*#( INDEX) 1844 
s *, INDEX 1843 


Routine Size: 
; Maximum stack 


Routine Size: 
Maximum stack 


CZQNAAO DEQNA FUNCTIONAL TEST 
INITIALIZE SECTION 


N6 


22-Feb-1984 14:45:07 
2-Feb-1984 14:42:46 


000002 CMP RO,@2 
BLE 14$ 
CLR RO 
TRAP 42 
TST RO 
BEQ we 
000000G 000000G MOV SHWP. TABLE, IOP.DATA 
000000G MOV RO, HWP. T Le 
MOV CRO),RO 
000000G MOV RO,REG.ADR 
000000G MOV RO,GET.ADR 
000000G ~~ a" » TMP. IOP.ADR 
000000G 15%: MOV TMP .IOP.ADR, IOP. TABLECRO) 
000002 000000G ADD #2, TMP .IOP.ADR 
000002 ADD 02,RO 
000016 CMP RO, #16 
BLE 15$ 
000006 16%: ADD #6, SP 
RTS Cc 
165 words, Routine Base: AASCODE$ + 0020 
depth per invocation: 12 words 
-SBTTL LSINIT INITIALIZE SECTION 
000020' LSINIT:: JSR PC, ,LINIT 
TRAP 11 
RTS PC 
4 words, Routine Base: AASCODES + 0532 


depth per invocation: 2 words 


VAX-11 Bliss-16 V4.0-579 Page 
DISK$USER2: [MAZURCZYK. SDC ]ZQNA2.BLI;1 


; INDEX,« 


TABLE .POINTER 


TABLE .POINTER, « 
HWP. TABLE , « 


SEQ 0078 


18 
(9) 


1869 


B/ 


=e. 0079 

QNAC CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:07 VAX-11 Blies-16 Vv4.0-579 Page 19 
v01.0 AUTODROP SECTION 2-Feb-1984 14:42:46 DISK $SUSER2: (MAZURCZ 1K, SOC JZQNA2.BLI;1 (10) 
3 1874 1 SSBTTL ‘AUTODROP SECTION’ 
3 1875 1 
Fy 1876 1 See 
3 1877 1 : 
3 1878 1 ! THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
3 1679 1 : THE “ADR” FLAG WAS SET. THE UNIT = TEST IS CHECKED TO 
Fy 1880 1 : SEE IF IT WILL RESPOND. IF IT DOESN'T IT IS IMMEDIATELY 
3 16861 1 H DROPPED FROM TESTING. 
3 18862 1 : 
F 16863 1 !-- 
3 1684 1 
3 1885 2 BGNAUTO; 
3 1886 2 'PRINTF (OB8MOS); 
3 1887 2 RETURN; 
Fy 16868 1 ENDAUTO; 

.SBTTL LAUTO AUTODROP SECTION 
000000 000207 LAUTO: RTS PC 3 1870 
3; Routine Size: 1 word, Routine Base: AASCODES + 0542 
3; Maximum steck depth per invocetion: O words 

-SBTTL LSAUTO AUTOOROP SECTION 
000000 004737 000542‘ LSAUTO: SR PC,LAUTO 3 1887 
000004 104461 61 
000006 000207 ats PC 
s Routine Size: 4 words, Routine Bese: AASCODES + 0544 


; Maximum steck depth per invocation: 2 words 


Fy 1689 1 
: 1890 1 


g 
KPNNAUNNNNNNNNNNAN R&R Ree ee ee 


s Routine Size: 
3; Maximum steck 


900000 004737 


000004 104412 
000006 000207 


s Routine Size: 
3 Maximum steck 


Fy 1916 1 
3 1917 1 


C/ 


depth per invocation: 2 words 


SEQ 0080 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:07 VAX-11 Bliss-16 v4.0-579 Page 20 
CLEANUP CODING SECTION 2-Feb-1984 14:42:46 DISKSUSER2:(MAZURCZYK.SDC)ZQNA2.B8LI;1 (11) 
SSBTTL ‘CLEANUP CODING SECTION’ 
Seo 
. 
‘ THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
‘ AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED 
e 
& | 
N; 
‘PRINTF (DBMO6); ! ‘CLEAN-UP CODE SECTION’ | 
RESET_DEQNA ( ); 
CLK_CSR = ZERO; ! TURN OFF THE CLOCK | 
: | 
See | 
a ; 
: INSERT YOUR CLEANUP CODING. THIS CODING SHOULD 
: RESTORE YOUR TEST-DEVICE TO A NEUTRAL STATE. 
: THIS CODE WILL BE EXECUTED AFTER EACH PASS AND AFTER THE 
PROGRAM IS INTERRUPTED BY “tC”. 
- 
ENDCLN; 
.SBTTL LCLEAN CLEANUP CODING SECTION | 
0000006 LCLEAN: JSR PC,RESET.DEQNA : 1902 | 
0000006 CLR ectK CER’ ; 1903 | 
RTS PC : 1888 
5S words, Routine Bese: AASCODES + 0554 
depth per invocation: 1 word H 
-SBTTL LSCLEAN CLEANUP CODING SECTION | 
000554’ LSCLEAN: : } 
JSR PC,LCLEAN : 1904 | 
TRAP = «12 
RTS PC 
4 words, Routine Bese: AASCODES + 0566 | 


SEQ Pam 
ZQNA2 CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:45:07 VAX-11 Bliss-16 V4.0-579 21 | 
vo01.0 DROP UNIT SECTION 22-Feb-1984 14:42:46 DISK $USER2: [MAZURCZYK . SOC JZQNA2. eur: (12) | 


SSBTTL ‘DROP UNIT SECTION’ 


* 
° 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO NO LONGER BE TESTED. 


BGNOU; 
!PRINTF (DOBM33); 
RETURN; 


oe 
° 


INSERT DROP CODE wy THIS CODE WILL BE EXECUTED AFTER 

A “DROP” COMMAND OR A “DODU” MACRO EXECUTION. THE PURPOSE 

OR THIS CODE IS TO 00 ANY NECESSARY HOUSEKEEPING AFTER A 
UNIT HAS BEEN DROPPED. 


g 


~ 
g 
Ce et Te) 


-SBTTL LDU DROP UNIT SECTION 
000000 000207 LOU: RTS PC 


s Routine Size: 1 word, Routine Bese: AASCODES + 0576 
3 Maximum stack depth per invocation: 0 words 


3 1915 


-SBTTL LSDU DROP UNIT SECTION 
000000 004737 000576‘ LSOU:: JSR PC,LOU : 1929 
000004 104453 53 

000006 000207 


RIS PC 
; Routine Size: 4 words, Routine Bese: AASCODES + 0600 
+ Maximum stack depth per invocation: 2 words 


3 1941 1 
Fy 1942 1 


<n 
a 
ry 
° 


eo @s Ge Oe Ge Ge Ge GF Ge Ge GF Gt os GF GF Ge OF GF oF Ge OF OF oF 
3 
w 


000000 000207 


; Routine Size: 
3 Maximum stack 


3 Routine Size: 
; Maximum stack 


3 1966 
Fy 1967 


KPNMNNNNNNNRNNAN RP RRP Re Ree eee 


1 
1 


CZQNAAO DEQNA FUNCTIONAL TEST 
ADD UNIT SECTION 


22-Feb-1984 14:45:07 
22-Feb-1984 14:42:46 


SSBTTL ‘ADD UNIT SECTION’ 


*¢ 


THE ADO-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE. 


BGNAU; 
‘PRINTF (DBM34); 


RETURN; 


* 
° 


é 
E 


1 word, 
depth per invocation: 


000610’ 


4 words, 
depth per invocation: 


INSERT ADD CODE HERE. 


THIS CODE WILL BE EXECUTED AFTER 
AN “ADD” COMMAND 


THE PURPOSE OF THIS CODE IS TO DO ANY 


HOUSEKEEPING THAT MAY BE NECESSARY AFTER A UNIT HAS BEEN ADDED. 


-SBTTL LAU ADD UNIT SECTION 
LAU: RTS PC 


Routine Bese: AASCODE$ + 0610 
O words 


-SBTTL LAU ADD UNIT SECTION 
LSAU:: JSR aed 


TRAP 
RTS PC 
Routine Bese: AASCODES + 0612 


2 words 


SEQ 0082 
DISK $USER2: [MAZURCZYK . SDC )ZQNA2. eur: 


VAX-11 Blies-16 V4.0-579 


22 
(13) 


1940 


<N 
; 
~ 
°o 


1978 
1979 
1980 
1981 


ee ee of G+ G+ Ge G+ GF GF Ge Ge GF GF GF 
me 
oo 
IN 
aw 
KP Mfr hre 


000000 012757 
000006 012737 
000014 000002 


; Routine Size: 


CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:07 
ADD UNIT SECTION 22-Feb-1984 14:42:46 


BGNSRV (NXM_INT); 


- 
° 


GLOBAL LOCATION “INTERRUPT_FLG” IS SET TO TRUE WHICH INDICATES 
THE INITIALIZATION SEQUENCE INTERRUPT OCCURED. 


INTERRUPT _FLG = 60'177777'; 


CANCEL _TIMER 60'177777'; 
ENOSRV; 
-SBTTL NXM.INT ADD UNIT SECTION 
177777 000000G NXM. INT: : 
MOV @-1, INTERRUPT .FLG 
177777 000000G are @#-1,CANCEL. TIMER 
7 words, Routine Base: AASCODES + 0622 


; Maximum steck depth per invocation: 0O words 


VAX-11 Bliss-16 V4.0-579 
DISK $USER2: [MAZURCZYK. SDC )ZQNA2. BLI; 1 


SEQ. eves “5 


2 
oe 014) 


| 
t 
| 
| 
| 


a‘ 


3; Routine Size: 
; Maximum stack 


3 2006 
Fy 2007 
$ 2008 


KPUVMWSSaWUWUWWWNNMNNRNNNN NNR eH 


1 
1 
° 


CZQNAAO DEQNA FUNCTIONAL TEST 
ADD UNIT SECTION 


BGNSRV (CLK_INT); 


TICKS = .TICKS + 
cos TICKS EQLU “cu -HERTZ 


SECONDS = .SECONDS «+ 1; 
IF .SECONDS EQLU 60 
THEN 


BEGIN 


2-Feb-1984 14:45:07 
22-Feb-1984 14:42:46 


“ 
a 
: THE CLOCK INTERRUPT SERVICE ROUTINE IS ENTERED AT THE CLOCK RATE 
‘ 


! INCREMENT THE NUMBER OF TICK 
: ae NUMBER OF TICK = 60 


! RESET TICK TO ZERO 

! INCREMENT THEN SECOND 
! IF SECOND = 60 

! THEN 


SECONDS = 0; ' RESET SECOND TO ZERO 
MINUTES = .MINUTES + 1; ! INCREMENT THE MINUTES 
3 
END; 
ENDSRV; 
-SBTTL CLK.INT ADD UNIT SECTION 
0000006 CLK.INT:: 
INC TICKS 
000000G 000000G io + attain 
000000G CLR TICKS 
000000G INC SECONDS 
000000G 000074 oa | aataites 
000000G CLR SECONDS 
000000G INC MINUTES 
18: RTI 
19 words, Routine Bese: AASCODES + 0640 


depth per invocation: 0O words 


END 
ELUDOM 


OTS externel references 


-GLOBL 


$SAVE4 


VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK. SDC JZQNA2. BLI;1 


- 0084 


24 
(15) 


H/ 


ZQNA2] CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:07 
v01.0 ADD UNIT SECTION 2-Feb-1984 14:42:46 
$ PSECT SUMMARY 

: Psect Name Words Attributes 

’ $CODE $ 31 “WO. & » OU, FEL. COR 

3 AASCODE $ 227 "GO, & , th, REL. CON 


eo Gs os Gs Ge oF oe 


Library Statistics 


cceccece Symbols -------- Pages 
File Totel Loaded Percent Mapped 


DISK $USER2: [MAZURCZYK . SDC JQNALIB.L16;2 
157 50 31 12 


COMMAND QUALIFIERS 
BLISS/PDP11 ZQNA2.BLI/LIST=ZQNA2.LIS/OBJECT =ZQNA2 . OBJ/SOURCE =PAGE : 53 


Size: 227 code + 31 date words 
Run Time: 00:16.1 

Elapsed Time: 00:40.8 

Lines/CPU Min: 7501 


Lexemes/CPU-Min: 41278 
amety Used: 215 pages 
Compilation Complete 


SEQ 0085 
VAX-11 Bliss-16 V4.0-579 P 


age 25 
DISK$USER2:(MAZURCZYK.SOCJZQNA2.BLI;1 (15) 


Processing 
Time 


00:00.1 


eRe eereOOO0C0 


17 


SEQ 0086 
CZQNAAO DEQNA FUNCTIONAL TEST . 22-Feb-1984 14:45:50 VAX-11 Bliss-16 V4.0-579 Page 1 
22-Feb-1984 14:42:49 DISK $USER2: [MAZURCZYK . SDC JZQNA3.BLI;1 (1) 
MODULE ZQNA3 tt Ss bi- wf DEQNA FUNCTIONAL TEST’ 
re ESSING_ MODE ( ABSOLUTE ) 


SSBTTL ‘DEQNA TEST DEFINITION MODULE’ 
BEGIN 


!<BLF /FORMAT > 
LIBRARY ‘QNALIB’ ; ! QNALIB LIBRARY 


t 
REQUIRE ‘BLSMAC.REQ’ ; ! DIAGNOSTIC SUPERVISOR LIBRARY 


ee G+ Gt Os Ge Gs Gs SF Gt oF Ge GF Gs Ge GH Gs GF Gt Gs GF OF Gt Ge os GF oF 


oe oe Ge 


DOP ae pe ae fe ae fe ee fet fe fe fe ee fe he he fe ee he ee fe ee ee pee pe pe 


CZQNAAO DEQNA FUNCTIONAL TEST 
DEQNA TEST DEFINITION MODULE 


PSEC 


T 
CODE = ABSCODES; 


EXTERNAL DATA USED BY THIS MODULE 


EXTERNAL ROUTINE 


ERROR $REPORT 


INT 
VER _DESCR_STATUS 
-BUFFERS 
at A eta 


-RCV_STATUS 

CHK _XMIT_STATUS 
COMPARE _PACKETS 
XMIT_AND_RCV_PACKET 
WRT _STATION_ADR 
WALKING _BIT 

RESET _DEQNA 


NOVALUE , 


2-Feb-1984 14:45:50 
2-Feb-1984 14:42:49 


J7 


PRINT EXTENDED ERROR MESSAGE 
PRINT EXTENDED ERROR MESSAGE 
CLK INTERRUPT SERVICE ROUTINE 
! NXM INTERRUPT SERVICE ROUTINE 


VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK. SDC ]ZQNA3.BLI; 1 


SEQ 0087 


2 
(2) 


ee ee 


CZQNAAO DEQNA FUNCTIONAL TEST 
DEQNA TEST DEFINITION MODULE 


EXTERNAL 


See 


$ COMMUNICATION 


RCV_D_LIST 
XMIT_O_LIST 
DESCR_LIST 
RCV_BUFFER 
XMIT_BUFFER 
DATA_BUFFER 
PHYS_ADR 
ETH_STATION_ADR 
SETUP _BUFFER 
IOP _TABLE $ 
BD_PROM_DESCR- : 


2 
2 


AREA DECLARATIONS 


[ 
VECTOR ‘ 
[ 
[ 
[ 


D_SIZE, WORD ) FIEL 
O_SIZE, WORD ) FIEL 
DESCR_SIZE, WORD] F 
B_SIZE, BYTE }, 
8_SIZE, BYTE }, 
BUF _SIZE, BYTE }, 
22, BYTE }, 


6, WORD }, 
SETUB_SIZE, WORD ], 
8, WORD e 
BD_D_SIZE, WORD }, 


: HARDWARE P-TABLE STORAGE DECLARATIONS 


IK 7 


SEQ 0088 


-Feb-1984 14:45:50 -VAX-11 Bliss-16 V4.0-579 Page 3 | 
-Feb-1984 14:42:49 DISK$USER2:[MAZURCZYK. SDC )ZQNA3.BLI;1 (3) | 


O (€ OL_FIELDS ), 
O (€ DL_FIELDS ), 
IELD ( DL_FIELDS ), 


HWP_TABLE : REF BLOCK [ HWP_SIZE, WORD }) FIELD ( HWP_FIELDS ), 


$ SOFTWARE P-TABLE STORAGE DECLARATIONS 


SWP_TABLE =: REF BLOCK [ SWP_SIZE, WORD ] FIELD ( SWP_FIELDS ), 


See 

: SYSTEM CLOCK STORAGE DECLARATIONS 
XBUF _LENGTH : WORD, ! 
RBUF _LENGTH : WORD, : 
TICKS : WORD, ' 
SECONDS : WORD, : 
MINUTES : WORD, : 
CANCEL _TIMER : WORD, ' 
CLK_veCc : WORD, ! 
-CSR : WORD, 2 
CLK_START : WORD, 3 
CLK_HERTZ : WORD, : 
CLK_ADR : WORD, i 
CLK_TYPE : WORD, : 
a] 


MISCELLANEOUS DATA DECLARATIONS 


XMIT BUFFER LENGTH IN WORDS 
RCV BUFFER LENGTH IN BYTES 
CLOCK RATE 

STORE SECONDS 

STORE MINUTES 


CLOCK INTERRUPT VECTOR ADR 


M 
(O=NONE , -1*L-CLOCK,1=P_CLOCK) 


hn f 


seq, 0089 
ZQNA3 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50 VAX-11 Bliss-16 V4.0-579 Page 4 
v01.0 DEQNA TEST DEFINITION MODULE 2-Feb-1984 14:42:49 DISK$USER2: [MAZURCZYK. SDC ]ZQNA3.BLI:1 (3) 
Fy 1584 1 

> 1585 1 FREE_MEM_ADR : WORD, ! FREE MEMORY BEGIN ADR 

> 1586 1 MEM_SIZE : WORD, ! FREE MEMORY SIZE 

; 1587 1 INTERRUPT _FLG : WORD, ! 1 = INTERRUPT OCCURED 

>; S88 1 COUNTER : WORD, ' 

>; 1589 1 CHECKS WORD, ' 

> 1590 1 PRIOO, VERIOL. PRIO2, PRIO3, PRIO4, PRIOS, PRIO6, PRIO7, 

>; 1591 1 DEQNA_ 

; 1592 1 

; 1593 1 REG_ADR : REF REG_STR FIELD ( IOP_FIELDS ), 

> 1594 1 GET_ADR : REF ADR_STR FIELD ( IOP_FIELDS ), 

>; 1595 1 IOP_DATA : REF REG_STR FIELD ( IOP_FIELDS ), 

>; 159% 1 STATION_ADR : VECTOR { 4, WORD }, 

; 1597 1 PTRN_TABLE : VECTOR { 8, BYTE J, 

; 1598 1 

; 1599 1 tee 

: 1600 1 ! TEMPORARY STORAGE DATA DECLARATIONS 

> 1601 1 fixe 

; 1602 1 

; 1603 1 TMP _IOP_ADR : WORD, ! I/O PAGE REGISTER ADDRESS 
; 1604 1 TMP_REG_DATA : WORD, : I/O PAGE REG CONTENTS 

; 1605 1 TEMP1 : WORD, ! temecPaRY STORAGE LOCATION 
; 1606 1 TEMP2 : WORD, ! TEMPORARY STORAGE LOCATION 
; 1607 1 TEMP3 : WORD, ! TEMPORAR’ STORAGE LOCATION 
> 1608 1 TEMP4 : WORD, ! TEMPORARY STORAGE LOCATION 
; 1609 1 TEMPS : WORD, ! TEMPORARY STORAGE LOCATION 
; 1610 1 TEMP6 : WORD, ! TEMPORARY STORAGE LOCATION 
; 1611 1 TEMP7 : WORD, ! TEMPORARY STORAGE LOCATION 
; 1612 1 TEMPB : WORD, ! TEMPORARY STORAGE LOCATION 
; 1613 1 TEMP9 WORD , ! TEMPORARY STORAGE LOCATION 
; 1614 1 TBYTE1 : BYTE, ‘ 

; 1615 1 TBYTE2 : BYTE, : 

; 1616 1 TBYTES BYTE, ! 

; 1617 1 TBYTE4 BYTE, ‘ 

> 1618 1 TADRi : : ! 

; 1619 1 TADR2 : . ! 

>; 1620 1 

> 1621 1 


es Gs Ge os os G+ GF GF GF OF Ge Gt GS Gs Ge Ge Ge Ge Gs Ge as OF OF 


2 OD ae te he fe ee ee ee he ee ee he pe pe he pt pe pe 


M7 


CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50 
DEQNA TEST DEFINITION MODULE 2-Feb-1984 14:42:49 


Yee 
o 
g 
Dos 
H 


DEBUG MESSAGES DECLARED EXTERMALLY 


DBM23 ,08M34 ,DBM35 ,DBM36, -* ee DBM36 ,0BM39 ,0BM40 ,DBM41 ,DBM42, 
DBM43, DBN44, DBM45, DBM46 


DIAGNOSTIC ERROR MESSAGES DECLARED EXTERNALLY 


E0001, 

ERROS, ERRO6, ERRO7, ERROS, 
E0101, 

E0201, E0202, 

E0301, 

E0401, 

£0501, E0502, E0503, 

E060 


MSGO1, MSG18, MSG19, MSG20, MSG21, MSG22, MSG23; 


_, 0090 
VAX-11 Bliss-16 V4.0-579 Page 5 
DISK$USER2: [MAZURCZYK. SDC JZQNA3. BLI;1 (4) 


Nd dd de dd od ed od lh 


N7 


SEQ 009 
CZQNARO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:45:50 VAX-11 Bliss-16 V4.0-579 Pear 6 
TEST 1 - NON-EXISTANT I/O PAGE REGISTER TEST 22-Feb-1984 14:42:49 DISK $USER2: [MAZURCZYK .SOC JZQNA3.BLI;1 (Ss) | 


sSBTTL ‘TEST 1 - NON-EXISTANT I/O PAGE REGISTER TEST’ 
See 
3 


TEST 1: NON-EXISTANT I/Q PAGE REGISTER TEST 
DESCRIPTION: 


This test verifies that all the device registers residing in the 

I/0 Page can be accessed without forcing a non-existant memory (NXM) 
interrupt. If the operator specifies loop on error, the program 
re-executes the code that detected the error until tC is entered. 


| 
Hardware tested: Q-Bus to DEQNA Slave Registers Interface 


Processing: 


BEGIN 
get ready for NXM interrupt 
EPEAT for every I/0 page register 


read I/0 page register 
IF NXM occured 
THEN 


Sate error message if not inhibited 


ENDREPEAT 
NO 


write any date pattern into the first 2 I/0 page regs. 
Bo occured 


] 
$ 
: 
, 
4 
‘ 
7 
' 
‘ 
‘ 
‘ 
] 
' 
s] 
, 
' 
] 
: 
: 
s] 
: 
‘ 
] 
i] 
] 
‘ 
s] 
$ 
8 
: goto error message if not inhibited 
: 

] 

6 


Be 


SEQ, 0092 
ZQNA3 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50 VAX-11 Blies-16 v4.0-579 Page 7 
v01.C TEST 1 - NON-EXISTANT I/O PAGE REGISTER TEST 2 -Febd-1984 14:42:49 DISK SUSER2: (MAZURCZ 1 . SOC )ZQNA3.BLI; 1 (6) 
; 1682 3 BGNTST; 

; 1683 3 

> 1684 3 SETVEC (4, NXM_INT, PRIO7); ! SET UP FOR AN NXM INTERRUPT 
> 1685 3 DELAY (MS_DELAY); ' DELAY SO x 100 us + 5 ws 
> 1686 3 INTERRUPT _FLG = CLEAR_FLG; ' CLEAR OUT NEX FLAG 

> 1687 8 TMP_IOP_ADR = me ine ADDR }; 

> 1688 3 en pdex FROM O oto 7 

3 1689 4 

> 1690 6 a 

> 1691 6 TEMP1 = ..TMP_IOP_ADR; 

> 1692 6 DELAY(7); 

> 1693 6 

>; 1694 6 IF .INTERRUPT_FLG EQLU WORD_LIMIT ! SEE IF we GOT A NXM INTRT 
> 1695 6 THEN 

>; 169% 7 BEGIN ! ADORESS NOT THERE 

3 1697 7 INTERRUPT _FLG = CLEAR_FLG; ' CLEAR TRAP FLAG 

; 1698 7 PRINTB ( E0101, .TMP_IOP_ADR ); 

>; 1699 7 ERROF (0101, E0001, €1sR€PORT), ! ‘1/0 PAGE REG. NOT PRESENT 
; 1700 7 DODU (DEQNA_NO); $ AND DROP THE UNIT 

; 1701 7 DOCLN; 

Fy 1702 6 END; 

Fy 1703 4 ENDSUB; 

; 1704 4 TMP_IOP_ADR = .TMP_IOP_ADR + 2; 

; 1705 38 END; 

: 1706 3 

; 1707 3 TMP _IOP_ADR = .HWP_TABLE [ ADOR ); 

+ 

; 1709 3 INCR INDEX FROM O TO 1 00 

; 1710 4 BEGIN 

3 1711 6 BGNSLUB ; 

; i712 6 TEMP1 = ..TMP_IOP_ADR; 

; 1713 6 DELAY(7); 

>; 1714 6 IF .INTERRUPT_FLG EQLU WORD_LIMIT ! SEE IF we GOT A NXM INTRT 
>; 1715 6 THEN 

; 1716 7 BEGIN ! ADORESS NOT THERE 

» orn? ? INTERRUPT _FLG = CLEAR_FLG; ! CLEAR TRAP FLAG 

; 1718 7 PRINTS ( E0101, .TMP_IOP_ADR ); 

s anne fF ERROF (0101, £0001, €1sREPORT), ! 'I/0 PAGE REG. NOT PRESENT’ 
s 1720 7 DODU (DEQGNA_NO); ! AND DROP THE UNIT 

; 1721 7 DOCLN N; 

F 1722 6 END; 

8 1723 4 ENDSUB ; 

; 1724 4 TMP _IOP_ADR = .TMP_IOP_ADR + 2; 

; 1725 3 END; 

; 1726 3 

; i727 3 CLRVEC (4); ! CLEAR INTERRUPT VECTOR 

; 1729 1 ENDTST; 


-TITLE ZQNA3 CZQNAAC DEQNA FUNCTIONAL TEST 
-IDENT /V01.0/ 
-ENABL AMA 


C8 


—_ 0093 
ZQNA3 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50 VAX-11 Blies-16 v4.0-579 Page 6&8 
v0O1.0 TEST 1 - NON-EXISTANT I/O PAGE REGISTER TEST 2-Feb-1964 14:42:49 DISK $USER2: [MAZURCZ 1K. SOC )ZQNA3. B.I;1 (6) 


-GLOBL ERRORSREPORT, ELSREPORT, CLK.I 

.GLOBL NXM.INT, VER.DESCR. STATUS, CLR. BUFFERS 
-GLOBL CLR. DESCRIPTORS, CLR.RBUFFER, CLR. XBUFFER 
-GLOBL SET.RDESCR.LIST, SET. XDESCR.LIST 

-GLOBL CHK.CSR.STATUS, CHK.RCV.STATUS 

-GLOBL CHK.XMIT.STATUS, COMPARE .PACKETS 

—— XMIT.AND.RCV. areet é WRT. STATION. ADR 


. PHY 
-GLOBL ETH.STATION.ADR, SETUP. BUFFER 
-GLOBL =" joes BO.PROM.DESCR, HWP. TABLE 


GLOBL CLK.VEC, CLK.CSR, CLK.START, CLK.HERTZ 
ADR. PE, FREE.MEM.ADR 
“GLOBL MEM.SIZE, INTERRUPT.FLG, COUNTER 
“GLOBL CHECKSUM, PRIOO, PRIO1, PRIO2 
[GLOBL PRIO3, PRIO4, PRIOS, PRIO6, PRIO7 
“GLOBL OEQNA.NO, REG.ADR, GET.ADR. IOP.DATA 
“GLOBL STATION.ADR, PTRN. TABLE, THP.IOP.ADR 
“GLOBL TMP.REG.DATA, TEMP1, TEMP2, TEMPS 
[GLOBL TEMP4, TEMPS, TEMP6. TEMP7. TEMPS 
“GLOBL TEMPS, TBYTE1, TeY/e2, TBYTES 
{GLOBL TBYTE4, TADR1, TADR2, D@M33, DBM34 
-GLOBL OBM35, 0BM36, 08M37, DBM38, DBM39 
.GLOBL DBM40, DBM41, DBM42. 0BN43, DBMA4 
-GLOBL DBM45, DBM46, E0001. ERROS. ERROS 
{GLOBL ERRO7, ERROS, E0101. E0201. E0202 
-GLOBL €0301, E0401, E0501, E0502, E0503 
-GLOBL £0601, MSGO1, MSG18, MSG19. MSG20 
[GLOBL MSG21. MSG22. MSG23. LSDLY 


-SBTTL $T1 TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST 
000000 -PSECT ABSCODES, RO 


000000 004137 000000G $11: JSR oe 5 1642 


7 
000030 012701 000062 MOV #62,R1 s #,$8TMP2 1685 
000034 001410 1%; BEQ 4% 
000036 0135700 000000G MOV oe. .a0 3s @, $STMP1 

4 


000044 005066 000010 2s; CLR 10( SP) 3 $sTMP 
000050 077003 S08 RO,28 3 $STMPl,« 
000052 005301 3%; DEC Ri 3 $sTMP2 


CZQNAAO DEQNA FUNCTIONAL TEST 
TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST 


4$: 


S$: 


6%: 


78: 
8s: 
98: 


108%: 


11%: 


128: 


13%: 
14%: 
15%: 


D8 


2-Feb-1984 14:45:50 
2-Feb-1984 14:42:49 


INTERRUPT .FLG 

GHWP . TABLE, TMP. IOP. ADR 
ee 
@TMP. IOP. ADR, TEMP1 
07,R1 

9% 

LSOLY,RO 

8s 

10(SP) 

RO,7$% 

R1 

6% 

INTERRUPT .FLG,@-1 
10% 

INTERRUPT .FLG 


aq 

CSP)+,CSP)+ 

67 

RO 

5$ 

@2, TMP. IOP. ADR 
R2 


$ 
GHP . TABLE , THP. IOP . ADR 
#2,R2 


2 
STMP.IOP.ADR, TEMP1 
@7,R1 


128 
INTERRUPT .FLG,@-1 


16% 
INTERRUPT .FLG 


VAX-11 Blies-16 V4.0-579 age 
DISK $USER2: [MAZURCZYK .SDC )ZQNA3.BLI;1 


#, INDEX 


*,$$TMP2 
*,$$TMP1 
$s TMP 


$$TMP1,*« 
$s$TMP2 


INDEX, ¢ 
*, INDEX 


*,$sTMP2] 
*, $$TMP1 
$s$TMP 


$sTMPi,¢ 
$sTMP2 


SP, 


SEQ 0094 
P 


9 
(6) 


1714 


1717 
1718 


; Routine Size: 


3; Maximum stack depth per invocation: 


000000 
000000 
000004 
000006 
000010 
000012 


004737 
104466 
006000 
103773 
000207 


; Routine Size: 


; Maximum stack depth per 


H 1730 1 
3 1731 1 


CZQNAAO DEQNA FUNCTIONAL TEST 
TEST 1 - NON-EXISTANT I/O PAGE REGISTER TEST 


16%: 


000012 


131 words, 


6 words, 
invocation: 


ADD 
RTS 


Routine Base: ABSCODES 
12 words 


E8 


2-Feb-1984 14:45:50 
22-Feb-1984 14:42:49 


E1$REPORT 
ODEQNA.NO,RO 
51 

a4 
(SP)+,(SP¢ 


=, tong 


VAX-11 Bliss-16 V4.0-579 
DISK $USER2: [ MAZURCZYK. SOC )ZQNA3.BLI; oe 


; 
s INDEX, 


T1 TEST 1 - NON-EXISTANT I/O PAGE REGISTER TEST 


PC,$T1 
66 


RO 
1$ 
PC 


Routine Base: ABSCODES + 0406 
2 words 


10 
(6) 


1719 


1727 


e+ Ge Gs Ge Gt Ge Gs Ge Ss Ge GF GF OF Gt GS GF Gs Ge Gs Ge OF GH GF GF GF Ge Ge Ge GF GH GF Ge Ge Ge Gs GF Ge GF Ge oF 


dd dd dl ol el el lel el aa 


F8 


— 0096 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50 VAX-11 Bliss-16 V4.0-579 Page i1 , 
TEST 2 - CSR STATIC BIT TEST 2-Feb-1984 14:42:49 DISK$USER2: (MAZURCZYK. SOC ]ZQNA3.BLI;1 (7) 
SSBTTL ‘TEST 2 - CSR STATIC BIT TEST’ 
Soe 
| 
TEST 2: CSR STATIC BIT TEST | 
DESCRIPTION: 


OS OS OS OS OS OS OS OS OS OS OS OS OS CS OS 6G OS OS OS OS OS OS OS OS OS 1S OS 1S 1S 1S 1S CS tS tS tS tee te 


This test verifies that the CSR register static bits can be set 
and cleared es specified. The host writes date patterns to this 
register and reads them back verifying no static 
(stuck at 1 / stuck at 0) faults occur. If the operator specifies 
loop on error, the program re-executes the code that detected the 
error until tC is entered. 


Hardware tested: Q-Bus to DMA Interface 
Processing: 
BEGIN 


reset device and check for expected CSR status 

IF error 

THEN ' 
oo error message if not inhibited 


set static bits and check for expected CSR status 

IF error 

THEN . 
print error message if not inhibited 

ENDIF 


clear static bits and check for expected CSR status 

IF error 

THEN 
print error message if not inhibited 

ENDIF 


END 


ae ee 


KP WUWWWE aD SWUWWWWWWUWWWWW BSDSWWWWWWWW WW WWW WWW WW 


G8 


CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:45:50 
TEST 2 - CSR STATIC BIT TEST 2-Feb-1984 14:42:49 
BGNTST; 


' 
1 
RESET THE DEVICE AND CHECK FOR NOMINAL CSR STATUS 
: 


RESET_DEQNA ( ); 


+ 
* 


CHECK IF CSR STATIC BITS (BIT 0,3,8 AND 9) ARE NOT STUCK AT O 


PUT_BIT ( CSR, ALL_BITS, PATRNI ); 
DELAY ( SO ); 
IF ld { CSR, ALL_BITS ] NEQU PATRN2 


BEGIN 
PRINTB (€ E0201, .GET_ADR [CSR_ALL], GET_BIT ( CSR, ALL_BITS )); 


ERROF ( 0201, E0001, E1$REPORT ); 
DODU (DEQNA_NO); 
OOCLN; 


END; 


> 
* 


CHECK IF CSR STATIC BITS (BIT 0,3,8 AND 9) ARE NOT STUCK AT 1 


PUT_BIT ( CSR, ALL_BITS, ZERO ); 
DELAY ( 100 ); 
IF a al 'f ¢sr, ALL_BITS ] NEQU CSR_2_STATUS 


BEGIN 
ant LS E0202, .GET_ADR [CSR ss GET_BIT ( CSR, ALL_BITS }); 


0202, E0001, E1SREPORT ) 
DODU (DEQNA_NO); 
DOCLN; 


END; 
RESET_DEQNA ( ); 
ENOTST; 
-SBTTL ¢T2 TEST 2 - CSR STATIC BIT TEST 
000000 137 000000G $Te: JSR R1, $SAVE2] 
000004 162706 000016 SUB #16,SP 
000000G JSR PC,RESET.DEQNA 


sae * oy 
VAX-11 Bliss-16 V4.0-579 
DISK$USER2: (MAZURCZYK. SOC ]ZQNA3.BLI; ‘ie 


12 
(8) 


1729 
1780 


CZQNAAO DEQNA FUNCTIONAL TEST 
TEST 2 - CSR STATIC BIT TEST 


000000G 

001411 000016 
000062 

000000G 


000014 


000016 
011471 


1$: 


2s: 
3$: 
4$: 


S$: 


6%: 


7%: 
8%: 
9%: 


H8 


22-Feb-1984 14:45:50 
22-Feb-1984 14:42:49 


REG.ADR,RO 
#1411,16(RO) 


as 

LS$OLY,R1 

3$ 

14(SP) 
R1,2$ 

Re 

1$ 

16(RO), CSP) 
le emetaaatts 
(SP),2CSP) 


6% 
16(RO),6(SP) 
6( SP), #10060 
10% 
6(SP),10(SP) 
10(SP), -C SP) 


VAX-11 Bliss-16 V4.0-579 Page 
DISK$USER2: [MAZURCZYK. SDC ]ZQNA3.BLI; 1 


*,$$TMP2 
*,$$TMP1 


$$ TMP 
$$TMP1,« 
$$TMP2 


*, TMP .LOCATION 
TMP .LOCATION, + 


*, TMP .LOCATION 
TMP .LOCATION, «+ 
«, TMP .LOCATION 
*«, TMP .LOCATION 
TMP .LOCATION,« 


SP, 


*, $$TMP2 
*,$$TMP1 


$$TMP 
$$TMPi,« 
$sTMP2 


*, TMP LOCATION 
TMP .LOCATION, « 


*, TMP .LOCATION 
TMP .LOCATION, + 
*, TMP .LOCATION 
*, TMP.LOCATION 
TMP .LOCATION, + 


SP, 


-, 0098 


13 
(8) 
1788 
1789 


1790 


1793 


1794 


1795 
1792 
1805 
1806 


1807 


1810 


1811 


: Routine Size: 
; Maximum stack 


000000 
000000 
000004 
000006 
000010 
000012 


: Routine Size: 
; Maximum stack depth per 


004737 
104466 


006000 
103773 
000207 


1819 1 
18620 1 


CZQNAAO DEQNA FUNCTIONAL TEST 
TEST 2 - CSR STATIC BIT TEST 


000000G 10%: 
000016 


110 words ’ 


depth per invocation: 16 wo 


000422’ T2:: 
1%: 


6 words, 
invocation: 


RTS 


Routine Base: ABSCODES 
rds 


18 


22-Feb-1984 14:45:50 
22-Feb-1984 14:42:49 


312 


E0001 
E1$REPORT 


#10,SP 

PC ,RESET.DEQNA 
#16,SP 

PC 


+ 0422 


T2 TEST 2 - CSR STATIC BIT TEST 


PC,$T2 
66 


Routine Base: ABSCODES + 0756 
2 words 


—_, 0099 

VAX-11 Bliss-16 V4.0-579 Page 14 | 
DISK$USER2: ([MAZURCZYK, SOC JZQNA3.BLI;1 (8) 

| 
; 1812 | 

| 
3 1809 | 
$ 1816 
H 1729 | 
3 1816 


Bsc cuacn-aabdaeaiidiancgdeenenmaaetanatmeiamupeunae: 


< 
° 
_ 


ee Gs Ge Gs Ge Ge G+ Ge Gt Ge Ge Gt Gt Gs Ge Gt GF GH GF Gs Ge Ge Ge GF Gt Gt GH Ge GH GH GH GH GH Ge Gt GF GF GF GF GF oF GF 
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CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50 VAX-11 Bliss-16 V4.0-579 


J8 


SEQ 0100 | 


P 1S | 
TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 2-Feb-1984 14:42:49 DISK$USER2:[MAZURCZYK.SDC]ZQNA3.BLI;1—— (9) 
SSBTTL ‘TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST’ | 


fee 


TEST 3: ETHERNET STATION ADDRESS VERIFY TEST 
DESCRIPTION: 


! 
j 

This test verifies thet the Ethernet Station Address PROM can be 

read and loaded to host memory correctly. Ethernet Station Address is 

verified and checksum is computed from date read and this checksum 

isc red to the checkeum stored in the Ethernet Station Address 

PROM. Ethernet Stetion Address is always printed out on the console in 

the Ethernet standard format. If the eddress is not proper, the error 

is recorded end en eppropriate error message is printed out on the 

console. If the operator specifies loop on error, the program 

re-executes the code that detected the error until tC is entered. 


Hardware tested: Station Address PROM 
Q-Bus DMA Interface 
Processing: 


BEGIN 


read DEQNA Station Address PROM and checksum 
save copy of Stetion Address PROM in host memory 
print Station Address on the console in standard format 
compute Stetion Address ROM checksum 
cone reed not equal checksum computed 

print error message if not inhibited 
ENDIF 
IF Station Address 

{ell 0's) 

OR {ell i's): 

OR [not essi to DEQNA space): 
=. {multicest bit set): 


laa error message if not inhibited 


END 


ee rE Se 


K8 


vases * 0101 


ee 6s Ge GF Ge Gt Ge Ge Gs Ge Gt GF Gs Gs Ge GS St Gs GS Ge GF GH GH GH Ge Gt Ge Gs Ge Gt GF GH Ge Ge Gs GF GH GH Ge GF GH GF Gs Gt Ge GH GH GH Ge Be GF aH OF 


VU SaWWWWWUWUAWUUUAUWNW SaSSSHSLSAVUUUULS ASS ASSSSS.WWAWWWWWWWWw 


CZQNAAO DEQNA FUNC 


TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 


BGNTST; 
RESET_DEQNA ( ); 


See 


! READ STATION ADDRESS FROM DEQNA PROM, SAVE IT, AND COMPUTE EXPECTED 


! CHECKSUM 


CHECKSUM = 0; 
INCR — FROM O 


TEMP1 = .REG_ADR ({ .INDEX, ALL_BITS ]; 


TEMP1 = .TEMP 


TIONAL TEST 


TO S BY 2 DO 


1 t 86; 


TEMP2 = .REG_ADR [ .INDEX + 1, 


STATION_ADR [ 


BEGIN 


CHECKSUM = 
CHECKSUM = 


ENO 
ELSE 
CHECKSUM = 


CHECKSUM = .CHECKSUM + 


IF .CHECKSUM G 
THEN 
CHECKSUM = 


.COUNTER } = .TEMP1 OR ( 
Fe AND #0'100000' ) NEQU ZERO 


- CHECKSUM ft 1; 
- CHECKSUM + 1; 


-CHECKSUM f 1; 


TRU WORD_LIMIT 
-CHECKSUM «+ 1; 


COUNTER = .COUNTER + 1; 


END; 


¢ 
PRINT ETHERNET STATION ADDRESS ON THE CONSOLE 


COUNTER = 186; 

PHYS_ADR [ 0 } = SC‘'s'; 
PHYS_ADR [ 1 = sC‘A’; 
PHYS_ADR [ 19 ] = sC’ '; 
PHYS_ADR [ 20 ] = C's’; 
PHYS_ADR [ 21 ] = SC‘N'; 
DECR INDEX1 FROM 2 TO O DO 


BEGIN 


TEMPS = .STATION_ADR [ 
INCR INDEX2 FROM O TO 1 


BEGIN 
INCR INDEX 


3 FROM O TO 1 DO 


2-Feb-1984 14:45:50 
22-Feb-1984 14:42:49 


); 
*TEMP2 AND #0'000377' 


-STATION_ADR [ . 


- INDEX1 1}; 
1 00 


VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK. SDC )ZQNA3. BLI;1 


roy 
wo 
w 
ae 
Cd Be Be BB BUN WN GN GE 8 Gd GN 8 8 GE hE GE GE BUT TUT UT UT UTI OAD AAA AH AO OF 


-_, 0102 
CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:45:50 VAX-11 Bliss-16 V4.0-579 17 


TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 22-Feb-1984 14:42:49 DISK $USER2: [MAZURCZYK .SDC )ZQNA3.BLI; ae 10) | 
BEGIN 
TEMP1 = . TEMPS AND SX'F'; 
IF .TEMP1 LEQU sDECIMAL’ 9: 
THEN 
TBYTE1 = #C‘'O’ + .TEMP1 
ELSE 


| 
TBYTE1 = SC‘A’' + ( .TEMP1 - SDECIMAL'10' ); 


PHYS_ADR . -COUNTER ] = .TBYTE1; 


IF .COUNTER GTRU 2 
THEN 
PHYS_ADR [ .COUNTER ]) = sC'-'; 
COUNTER = .COUNTER - 1; 
END; 
END; 


PRINTB ( MSGO1, .HWP_TABLE [ ADDR } ); 
PRINTB € PHYS_ADR ); 


+ 
a 


READ ACTUAL CHECKSUM FROM DEQNA STATION ADDRESS PROM AND COMPARE IT TO 
THE EXPECTED CHECKSUM COMPUTED ABOVE. 


PUT 481! ( CSR, LB, EXT_LOOPBACK ); 
DELAY ( 50 ); 

TEMP1 = “REG AOR i ALL_BITS ); 
TEMP1 = .TEMP1 ft 
TEMP2 = "REG ADR ['0, ALL_BITS }; 

STATION_ADR [ CHSUM } = .TEMP1 OR ( .TEMP2 AND #0'000377' ); 
PUT_BIT ( CSR, LB, ZERO ); 

IF - CHECKSUM NEGU STATION. ADR { CHSUM ] 


MEN BEGIN 
PRINTB ( E0301, .STATION_ADR [ CHSUM ], .CHECKSUM ); 
ERROF (0301, E0001, E1SREPORT); : 


DODU (DEQNA_NO); ! AND DROP THE UNIT 
DOCLN; 
END; 
ENDTST; 
-SBTTL $T3 TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 
$T3; JSR R1, $SAVE4 3 1818 
000012 SUB #12,SP 
JSR PC ,RESET.DEQNA ; 1865 
000000G CLR CHECKSUM 3 1872 
CLR R2 3s INDEX 1874 
1%: MOV R2,RO 3: INDEX, 1876 


CZQNAAO DEQNA FUNCTIONAL TEST 
TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 


2s: 
3$: 


7$: 
8$: 


M8 


22-Feb-1984 14:45:50 
22-Feb-1984 14:42:49 


RO 

REG. ADR ,RO 
CRO),CSP) 
(SP),RO 


R 
REG.ADR,RO 
2(RO),2CSP) 
2(SP), TEMP2 
— »RO 


nes R1 
ee CHECKSUM 


R1, CHECKSUM 

om 

Ri, CHECKSUM 

STATION. ADRCRO) , CHECKSUM 
COUNTER 


#2,R2 
R2.05 


1% 

#22, COUNTER 

#45 ,,PHYS.ADR 
#101.,PHYS.ADR+1 
@40 ,PHYS.ADR+23 
045 PHYS .ADR+24 
#116,PHYS.ADR+25 


04,R1 
ily) etcamataate TEMPS 


#2,R2 

TEMPS, TEMP1 
#177760, TEMP1 
TEMP1,RO 

> ale 


VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK . SDC ]ZQNA3.BLI; 1 


*, TMP.LOCATION 


INDEX, * 


+, TMP .LOCATION 
TMP .LOCATION, « 


TEMP2 ,* 


*, INDEX 
INDEX, + 


*#, INDEX1 
*#C INDEX1),« 


~ #, INDEX2 


*, INDEX3 


TBYTE1,«# 


SEQ 0103 


18 
(10) 


1877 


1878 


1879 


CZGNAAO DEQNA FUNCTIONAL TEST 
TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 


N8 


2-Feb-1984 14:45:50 
22-Feb-1984 14:42:49 


@HWP . TABLE , -C SP) 
@MSGO1, -( SP) 
#2,-CSP) 


14 
@PHYS.ADR, (SP) 
#1,-CSP) 

oo 


1 
REG.ADR,R1 
#1400, 16(R1) 
#62 ,R2 


13% 
LSDLY,RO 
12$ 
20(SP ) 
RO,11% 
Re 


10% 
2(R1),14(SP) 
14(SP),RO 


#10,RO 

RO, TEMP1 
(R1),16(SP) 

CR1), TEMP] 
STATION. ADR+6 
CR1), STATION. ADR+6 
RO, STATION. ADR+6 


#1400, 16(Ri) 
CHECKSUM, STATION. - ADR+6 


CHECKSUM, (SP) 


VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [(MAZURCZYK .SDC JZGNA3.BLI;1 


INDEX3, « 


INDEX2,* 
*, INDEX1 


SP,* 


SP,# 


*,$$TMP2 
*,$$TMP1 

$$TMP 

$$TMP1,* 
$$TMP2 

*, TMP .LOCATION 
TEMP1,+* 

*, TMP .LOCATION 
TMP .LOCATION, « 


TEMP? ,« 
TEMP1,* 


SP, 


SEQ 0104 


1944 
1945 


1947 


1955 


ses !!!!?:.00.S.Ss. cc QTKrrrrre..e. 


Bo 


=6@. 0105 

ZQNA5 CZQNAAO DEGNA FUNCTIONAL TEST 22-Feb-1984 14:45:50 VAX-11 Blies-16 v4.0-579 Pege 20 
v01.0 TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 2-Feb-1984 14:42:49 DISK SUSER2: [MAZURCZ 1K . SDC )ZQNA3.BL1;1 (10) 
0006 34 -WORD E1SREPORT 
000636 012700 000000G MOV @DEQNA .NO,RO 3 1956 
000642 104451 TRAP 51 
000644 104444 TRAP 4a 
000646 062706 000006 ADO 06 ,SP 3 1953 
000652 062706 000022 14%: ADO @22,SP 3 1618 
000656 000207 RTS PC 
; Routine Size: 216 words, Routine Bese: ABSCODES + 0772 
; Maximum stack depth per invocation: 19 words 

SBTTL 13 TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 
000000 004737 000772’ T3:: 
000000 18: JSR PC,$T3 5 1958 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1% 
000012 000207 RTS PC 
3 Routine Size: 6 words, Routine Bese: ABSCODES + 1652 


3 Maximum steck 


3 1960 1 
Fy 1961 1 


depth per invocetion: 2 words 


< 
°o 
rn 


ee Ge Gt Ge Ge Gs Ge Gt Gt Ge Ge Gt Ge Ge Ge Ge GH Ge GE Ge Ge Gt Ge Gt Ge Ge Gs Ge GH GH Ge GH GF Ge GH GF GH Ge Ge Ge Gt Ge Ge Ge Ge Ge 


2D he ba Pe Pad feo feed a pe pad pa pad fad Pb fed fet fad fed fed fd pad pee fd feed fd eo ped pd ped ae be Ped pd bP hed Peo ped pee ed be bee ee ee pd 
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CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50  VAX-11 Blies-16 v4.0-579 Page 21 
TEST 4 - INTERRUPT VECTOR ADDRESS TEST 2-Feb-1984 14:42:49 DISKSUSER2:(MAZURCZYK.SDCJZQNA3.BLI;1 (11) 


SSBTTL ‘TEST 4 - INTERRUPT VECTOR ADDRESS TEST’ 


TEST 4: INTERRUPT VECTOR ADDRESS TEST 
DESCRIPTION: 


This test verifies thet ell bits of the vector eddress register 
cen be set and cleared es specifies. The host writes dete petterns 
to this ister end reede them back verifying no stetic 

(stuck et 1 / stuck et 0) faults occur. If the operator specifies 
loop on error, the program re-executes the code thet detected the 
error until tC is entered. 


NOTE: Only bite 9:2 of the Interrupt vector Address Register are 
velid, rest reed es 0. 


The following BINARY date petterns ere used: 


00000000 11111111 
10101010 01010101 
11001100 00110011 
11110000 00001111 


walking 1's, 1 propegeting thru Vector Address Reg. 
walking O's, O propegeting thru Vector Address Reg. 


Hardwere tested: Device Vector Address Register 
Sleve Interface Registers 


Processing: 
BEGIN 


reset device 

REPEAT for each pettern 
write pattern to Vector Address Register ( bits 9:2 ) 
reed pattern from Vector Address Register ( bits 9:2 ) 
compere write pattern to reed pattern (less noise bits) 
Tens owe 


rint error message if not inhibited 
ENDIF 


OS OS OS OS OS OS OS OS OS OS OS OS OS OS OS OS OS FS OS OS OS OS OS OS OS OS OS 1S OS 1S OS OS OS 1S 1S 1S 1S 1S 1S 1S HSS tS tere 


| 

ENDREPEAT 
NOD 

' 

| 


ee 


PUUMWNAWWUUWWS DBULIVUUS &SSWUWUUWUNWWWWVUUUUUIS & Baa aWWUWWUWWW 
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CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50 VAX-11 Blies-16 vV4.0-579 22 
TEST 4 - INTERRUPT VECTOR ADDRESS TEST 2-Feb-1984 14:42:49 DISKSUSER2: [MAZURCZYK, SOC JZQNA3. en. (12) | 
BGNTST; 


RESET_DEQNA ( ); 


"WRITE ALTERNATING 0‘S AND 1'S TO INTERRUPT VECTOR ADDRESS REGISTER 
IN THE I/0 PAGE, THEN READ AND COMPARE TO THE WRITE PATTERN 


sere rare 
° 


INCR INDEX FROM O TO 7 DO 
BEGIN 


TEMP1 = .PTRN_TABLE [ .INDEX }; 
PUT_BIT ( INT_VEC, VEC_ADR, .TEMP1 ]; 


IF GET_BIT ( INT_VEC, VEC_ADR ) NEQU .TEMP1 
THEN 


BEGIN 
PRINTB (E0401, .GET_ADR ( VEC_ALL }, .TEMP1, GET_BIT [ INT_VEC, VEC_ADR } ); 
ERROF ( 0401, £0001, E1LSREPORT ); 
poeu S DEQNA_NO ); 
3 
END; 
END; 


WRITE WALKING 1 PATTERN INTO THE INTERRUPT VECTOR ADDRESS IN THE I/0 PAGE 
REGISTER THEN READ AND COMPARE TO THE WRITE PATTERN 


se cetera 
' * 


TEMP1 = #8'00000001' ; 
INCR INDEX FROM O TO 7 DO 
BEGIN 


PUT_BIT ( INT_VEC, VEC_ADR, .TEMP1 }; 
*— ( INT_VEC, VEC_ADR } NEQU .TEMP1 


GIN 
PRINTS ( E0401, .GET_ADR ( VEC_ALL ], .TEMP1, GET_BIT [ INT_VEC, VEC_ADR } ); 
ERROF ( 0401, E0001, E1SREPORT ); 
DODU ( DEQGNA_NO ); 
DOCLN; 
END; 
TEMP1 = .TEMP1 ¢ 1; 
3 


- 
° 


WRITE WALKING O PATTERN INTO THE INTERRUPT VECTOR ADDRESS IN THE I/O PAGE 
REGISTER THEN READ AND COMPARE TO THE WRITE PATTERN 


—— eee ee 


TEMP1 = #68'11111110'; 
INCR INDEX FROM O TO 7 DO 
BEGIN 


er @s ©F GF OF Os Os Oe Os oe oF Gs Gs OF oe 
KPWUUN PS SSYUUUUUI a SSS 


CZQNAAO DEQNA FUNCTIONAL TEST 
TEST 4 - INTERRUPT VECTOR ADDRESS TEST 


PUT_BIT ( INT_VEC, VEC_ADR, 


EQ 


2-Feb-1984 14:45:50 
22-Feb-1984 14:42:49 


.TEMP1 Jj; 


— { INT_VEC, VEC_ADR } NEQU .TEMP1 


TEMP1 = (( 


END; 
ENDTST; 


BEGIN 
PRINTB ( E0401, 


-GET_AOR [ VEC_ALL ], 


ERROF ( 0401, E0001. E1$SREPORT ); 


DODU ( DEQNA_NO 


$14: 


18%: 


000014 


. SBTTL 
J 


-TEMP1 t 1 ) + 1 ) AND #0'000377' ; 


VAX-11 Blies-16 V4.0-579 


— sang 


23 
DISK $USER2: [MAZURCZYK. SOC )ZQNA3. puts (12) 


-TEMP1, GET_BIT [ INT_VEC, VEC_ADR } ); 


$T4 TEST 4 - INTERRUPT VECTOR ADDRESS TEST 


Ri, $SAVE4 


R3 
#176003,R3 
#1774,14(RO) 
R3,14(RO) 
14(RO), (SP) 


INDEX 
*( INDEX),« 


«, TMP .LOCATION 
TMP .LOCATION,# 


*, TMP .LOCATION 
TMP .LOCATION, « 


*, TMP .LOCATION 
*, TMP .LOCATION 
TMP .LOCATION, + 


SP, 


2022 


2025 


CZQNAAO DEQNA FUNCTIONAL TEST 
TEST 4 - INTERRUPT VECTOR ADDRESS TEST 


001774 000014 


000010 


000012 
000000G 


2s: 


3%: 


4%: 


F9 


2-Feb-1984 14:45:50 
2-Feb-1984 14:42:49 


@DEQNA .NO,RO 


#176003,R3 
#1774,14(RO) 
R3,14(RO) 
14(RO),6(SP) 


R1,R4 
6(SP),R3 
R3 


R3 
WE 


Ss 
6(SP),10(SP) 
aoe 


RO 
#177400,RO0 


VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK . SOC )ZQNA3.BLI; 1 


INDEX 
INDEX, « 


*, INDEX 


*, TMP .LOCATION 
TMP .LOCATION, + 


*, TMP .LOCATION 
TMP .LOCATION, ¢ 


*, TMP .LOCATION 
*, TMP .LOCATION 
TMP .LOCATION, « 


SP,* 


~, 0109 


24 
(12) 


2026 


2041 


2045 


2046 


2043 
2049 


000672 000207 


: Routine Size: 


CZQNAAO DEQNA FUNCTIONAL TEST 


TEST 4 - INTERRUPT VECTOR ADDRESS TEST 


000376 000000G 
000010 


000014 000016 


000012 
000000G 


000022 


222 words, 


S$: MOV 


6%: MOV 


ADO 
RTS 


G9 


22-Feb-1984 14:45:50 
22-Feb-1984 14:42:49 


R2 


3% 

0376, TEMP1 
#10,R2 
REG. ADR ,RO 
TEMP1,R1 
R1,R3 

R3 


R3 
#176003,R3 
#1774,14(RO) 
R3,14(RO) 

> 90 teaietaaeatin 


Ri, 

14(SP),R3 

R3 

R3 
#177400,R3 
R3,R4 

6% 
14(SP),16(SP) 
at etme 


RO 
#177400,RO 
R ) 


Routine Base: ABSCODES + 1666 


SEQ 0110 
VAX-11 Blies-16 V4.0-579 age 25 
DISK $USER2: [MAZURCZYK .SOC ]ZQNA3.BLI;1 (12) 
; INDEX 2038 
3 2057 
3 *, INDEX 2059 
3 2061 


; TMP.LOCATION,+ 


3s *,TMP.LOCATION 2066 
s TMP.LOCATION,+ 


; *,TMP.LOCATION 
s *,TMP.LOCATION 


! 
} 
! 
; *, TMP.LOCATION 2063 
: TMP.LOCATION, + 


. SP ,* 

3 2067 
3 2068 
3 2065 
3 2072 
3; INDEX 2059 
3 1959 


eae 


H9 


SEQ nase 

ZQNA3 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50 VAX-11 Bliss-16 V4.0-579 Page 26 
v0O1.0 TEST 4 - INTERRUPT VECTOR ADDRESS TEST 2-Feb-1984 14:42:49 DISK$USER2: : (MAZURCZYK, SNC JZQNA3.BLI;1 (12) 
; Maximum stack depth per invocation: 21 words 

-SBTTL T4& TEST 4 - INTERRUPT VECTOR ADDRESS TEST 
000000 004737 001666‘ T4:; 
000000 1$: JSR PC,$T4 ; 2073 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
; Routine Size: 6 words, Routine Base: ABSCODE$ + 2562 


! 
| 
| 
; Maximum stack depth per invocation: 2 words | 
3 2076 1 


2077 1 


ee 


CZQNAAO DEQNA FUNCTIONAL TEST 
TEST 5S - INTERRUPT SANITY TEST 


SSBTTL ‘TEST S - INTERRUPT SANITY TEST’ 
¢¢ 
‘ 


TEST 5S: INTERRUPT SANITY TEST 
DESCRIPTION: 


19 


2-Feb-1984 14:45:50 
22-Feb-1984 14:42:49 


_, — 


VAX-11 Bliss-16 V4.0-579 
DISK$USER2: (MAZURCZYK, SOC JZGNA3.BLI; 1 


27 
°9* 13) 


JI 


—, 0113 
ZQNA3 CZQNAAO DEQNA FUNCTIONAL TEST _ 22-Feb-1984 14:45:50 VAX-11 Bliss-16 V4.0-579 Page 28 
v01.0 TEST 5S - INTERRUPT SANITY TEST 2-Feb-1984 14:42:49 DISK$USER2: : (MAZURCZYK, SOC JZQNA3.BLI;1 (14) 
3 2085 1 
’ 2086 3 BGNTST; 
3 2087 3 
3 2088 3 RESET_DEQNA ( ); 
3 2089 3 SETVEC ( HWP _ - TABLE ( vec ], NXM_INT, PRIO7 ); ! SET UP FOR AN NXM INTERRUPT 
H 2090 3 . I0P_TABLE { INT_VEC ) = .HWP_TABLE [ VEC ]); 
3 2091 3 TMP_IOP_ADR = .HWP_TABLE ( ADDR ]; 
8 2092 3 COUNTER = 0; 
3 2093 : INTERRUPT _FLG = CLEAR_FLG; ' CLEAR OUT NXM FLAG 
8 2094 
3 2095 3 INCR PRIORITY FROM PRIOO TO PRIO7 BY #0'40' DO 
3 2096 4 BEGIN 
3 2097 4 INTERRUPT_FLG = CLEAR_FLG; 
8 2098 4 SETPRI ( -PRIORITY ); ! SET PROCESSOR PRI LEVEL 
3 4 PUT_BIT (€ CSR, IE, SeT_ IT ); ! ENABLE INTERRUPTS 
8 Stee | DELAY (MS_DELAY); ' DELAY SO x 100 us = 5 ms 
3 
3 2102 4 -IOP_TABLE [ XLO_ADR ] = NXM_LO_ADR; ' WRITE LOW ADDRESS 
3 rey 3 -IOP_TABLE [ XHI_ADR ] = NXM_HI_ADR; ! WRITE HIGH ADDRESS 
3 2105 4 DELAY ( 2 ); 
3 2106 4 GETPRI ( TEMP1 ); 
3 tpt : TEMP1 = .TEMP1 t+ ( - 5S ); 
3 
3 2109 5 IF ( .INTERRUPT_FLG EQLU WORD_LIMIT ) AND ( .PRIORITY GTRU PRIO3 ) 
3 2110 4 THEN ! INTERRUPT SHOULD NOT OCCUR 
3 2111 5 BEGIN 
3 2112 5 PRINTB ( E0601, .TMP_IOP_ADR, .TEMP1, .COUNTER ); 
3 2113 5 ERROF ( 0601, E0001, E1$REPORT ); 
3 2114 5 DOOU € DEQNA_NO ); 
3 2115 5 DOCLN; 
3 2116 4 END; 
Fy 2117 4 
3 2118 5 -. cs pranes _FLG EQLU ZERO ) AND ( .PRIORITY LEQU PRIO3 ) 
$ 2119 4 ! INTERRUPT SHOULD OCCUR 
Fy 2120 5 ™GCGIN 
Fy 2121 5 PRINTB ( E0601, .TMP_IOP_ADR., .TEMP1, .COUNTER ); 
8 2122 5 ERROF ( 0601, £0001, “E1s8REPORT 3 
3 2123 5 DODU € DEQNA_NO ); 
H 2124 5 DOCLN; 
8 2125 4 END; 
8 2126 4 
8 2127 4 RESET_DEQNA ( ); 
s 2128 4 COUNTER = “COUNTER ¢ 1s; 
$ 2129 3 END; 
3 2130 3 
8 eta SETPRI ( PRIO4 ); ! SET PROCESSOR PRI LEVEL 
3 
Hy 2133 1 ENOTST; 


-SBTTL $TS TEST 5 - INTERRUPT SANITY TEST 
000000 004137 000000G $T5: JSR R1, $SAVE2 ; 2075 


eS ne NS ee 


CZQNAAO DEQNA FUNCTIONAL TEST 
TEST S - INTERRUPT SANITY TEST 


177773 


000014G 
000000G 


000016 


000010G 
000012G 


177777 


1$: CLR 


3%: CLR 


KI 


22-Feb-1984 14:45:50 
2-Feb-1984 14:42:49 


-(SP) 

PC ,RESET.DEQNA 
@PRIO7, -(SP) 

@NXM. INT, -CSP) 

HWP . TABLE ,RO 

2(RO), -CSP) 

3, -(SP) 

37 

HWP . TABLE ,RO 
2(RO), @IOP. TABLE +14 
@HWP . TABLE, TMP. IOP. ADR 
COUNTER 

INTERRUPT .FLG 

oPRI 


12% 

INTERRUPT .FLG 
R2,RO 
41 
REG.ADR,RO 
#100,16(RO) 

> 

eile RO 

10¢SP) 

RO,3$ 

R1 

2s 
#-20000, @IOP . TABLE +10 


#77, @I0P.TABLE+12 
San 


» TEMP1 
INTERRUPT .FLG,@-1 
10% 

R2,@PRIOS 

10% 

COUNTER , (SP) 

RO, -(SP) 

TMP. IOP .ADR, -( SP) 
(SP) 


SEQ 0114 
VAX-11 Bliss-16 V4.0-579 Page 29 
DISK $USER2: [MAZURCZYK. SOC ]ZQNA3. BLI;1 ea) 


F 2088 
3 2089 
3 2090 
3 2091 
3 2092 
3 2093 
3; *,PRIORITY 2095 
3 2097 
; PRIORITY,«* 2098 
H 2099 
3 *,$$TMP2 2100 
3s *,$$TMP1 

3; $$TMP 

3 $$TMP1,« 

3; $$TMP2 

3 2102 
; 2103 
3 *,$$TMP2 2105 
3 *,$$TMP1 

3 $$TMP 

3 $$TMP1,« 

3; $sTMP2 

F 2106 
3 2107 
F 2109 
; PRIORITY,« 

Fy 2112 
; TEMP1,« 

a SP ,* 

3 2113 


LY 


_, 0115 | 

ZQNA3 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50 VAX-11 Bliss-16 V4.0-579 Page 30 | 
vo1.0 TEST 5S - INTERRUPT SANITY TEST 2-Feb-1984 14:42:49 DISK$USER2: ([MAZURCZYK. SOC JZQNA3.BLI;1 (14) | 
000270 001131 .WORD 1131 | 
000272 000000G -WORD E0001 
000274 000000G -WORD E1$REPORT | 
000276 012700 000000G iV #DEQNA .NO,RO F 2114 
000302 104451 TRAP 51 | 
000304 104444 TRAP 44 
000306 062706 000010 AOD #10,SP F 2111 
000312 005737 000000G 108: TST INTERRUPT. FLG ; 2118 
000316 001031 BNE 11% 
000320 020227 000000G CMP R2, @PRIO3 ; PRIORITY,« 
000324 101026 BHI 

013716 000000G MOV COUNTER, (SP) F 2121 
000332 013746 000000G MOV TEMP1,- (SP) 
000336 013746 000000G MOV -IOP.ADR, -C(SP) 
000342 012746 000000G MOV 0€0601 »-CSP) 
000346 012746 000004 MOV 04,-CSP) 
000352 010600 2RO 3; SP, 
000354 104414 TRAP 1 
000356 104455 TRAP 5 ; 2122 
000360 001131 WORD 1131 
000362 000000G WORD 0001 
000364 000000G -WORD €E1$REPORT 
000366 012700 000000G MOV @DEQNA.NO,RO 3 2123 
000372 104451 TRAP 51 
000374 104444 TRAP 44 
000376 062706 000010 ADD #10,SP 3 2120 
000402 004737 000000G 11%: JSR PC ,RESET.DEQNA 3 2127 
000406 005237 000000G INC COUNTER PF 2128 
000412 062702 000040 ADD 040 ,R2 ; #,PRIORITY 2095 
000416 020227 000000G 12%: CMP R2, @PRIO7 ; PRIORITY,+ 
000422 003625 BLE 1% 
000424 012700 000000G MOV @PRIO4 ,RO 3 2131 
000430 104441 TRAP 41 
000432 062706 000012 ADD #12,SP 3 2075 
000436 000207 RTS PC 
3 Routine Size: 144 words, Routine Base: ABSCODES + 2576 
; Maximum stack depth per invocation: 14 words 

-SBTTL TS TEST S - INTERRUPT SANITY TEST 

000000 004737 002576’ TS:: 
000000 1%: JSR PC,$TS 3 2131 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1% 
000012 000207 RTS PC 
; Routine Size: 6 words, Routine Base: ABSCODES + 3236 
; Maximum stack depth per invocation: 2 words 


M9 


— 0116 
ZQNA3 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50 VAX-11 Bliss-16 V4.0-579 Page 32 
v0O1.0 TEST 6 - ETHERNET CARRIER SENSE TEST 2-Feb-1984 14:42:49 DISK$USER2: [MAZURCZYK. SOC JZQNA3.BLI;1 (15) 
Fy 2135 i SSBTTL ‘TEST 6 - ETHERNET CARRIER SENSE TEST’ 
H 2136 1 See 
Hy oh ae | H 
FY ao r ! TEST 6: ETHERNET CARRIER SENSE TEST 
3 1 H 
H 2140 : : DESCRIPTION: 
: 1 : 


| 
| 


Se Ge Ge Ge Gs Ge Ge Gs Ge SS Ge Gs Se Ge Ge GS GH GF Ge GF Gt Gs SE GS GE Gs Ge Gs Gt GF GF GH ae Ge Gs Gs Gs SH Se GH Gs Ge GF GH Ge BF GF Ge GF Gs ee Se GF 


CON G8 Gt GEN GI GE EGE IE I IAW S & & BUI S & BUI WII IW OI Ot 


N9 


2-Feb-1984 14:45:50 
22-Feb-1984 14:42:49 


CZQNAAO DEQNA FUNCTIONAL TEST 
TEST 6 - ETHERNET CARRIER SENSE TEST 


BGNTST; 
RESET _DEQNA ( ); 


: 
: FORMAT XMIT BUFFER INTO THE ETHERNET TRANSMIT PACKET 


CLR_RBUFFER ( ); 
CLR_XBUFFER ( ); 
TMP_IOP_ADR = .HWP_TABLE [ ADDR ]; 


INCR INDEX FROM O TO 5 DO 
BEGIN 


ETH_STATION_ADR [ .INDEX ] = ..TMP_IOP_ADR; 
— = .TMP_IOP_ADR + 2; 
: 


INCR INDEX FROM O TO 5S DO 
BEGIN 


TBYTE1 = .REG_ADR ( .INDEX, ST_ADDR ]; 
XMIT_BUFFER [ .INDEX ] = .TBYTE1; 
XMIT_BUFFER [ .INDEX + 6 ] = .XMIT_BUFFER [ 
: 


XMIT_BUFFER [ PKT_TYPE ] = LPB_PKT; 
XMIT_BUFFER [ PKT_TYPE + 1 ] = SKIP_CNT; 
XMIT_BUFFER [ PKT_TYPE + 2 ] = RFC; 


INCR INDEX FROM O TO PKT_LENGTH - 1 DO 
XMIT_BUFFER [ PKT_DATA + .INDEX }) = 


- INDEX ]; 


- INDEX; 


+ 
CONVERT SETUP PACKET SIZE FROM BYTE COUNT TO WORD COUNT 


RBUF _LENGTH = PKT_LENGTH + 14; 
XBUF_LENGTH = - ( .RBUF_LENGTH t -1 ); 


SET_RDESCR_LIST ( .XBUF_LENGTH, VE ); 
SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 


PUT_BIT ¢ CSR, LB, EXT_LOOPBACK d; 
PUT_BIT (€ CSR, IE, SET_IT ); 


-IOP_TABLE [ RLO_ADR } = RCV_D_LIST; 
-IOP_TABLE [ RHI_ADR ] = 0; 
-IOP_TABLE [ XLO_ADR } = XMIT_D_LIST; 
-IOP_TABLE [ XHI_ADR ] = 0; 
INCR INDEX FROM O TO 999 DO 

IF GET_BIT { CSR, CA ] EQLU ONE 


—_, 0117 
VAX-11 Bliss-16 V4.0-579 Page 3 
DISK$USER2: (MAZURCZYK.SOCJZQNA3.BLI;1 (16) 


fv 
~~ 
— 
Ys) 
WWW &SWUUUUWWUWWWWWW & & a WUWUUUUwWw owe ow 


Bio 


2-Feb-1984 14:45:50 
2-Feb-1984 14:42:49 


CZQNAAO DEGNA FUNCTIONAL TEST 
TEST 6 - ETHERNET CARRIER SENSE TEST 


TREN 
BEGIN 
: PRINTB ( DBM4O, TABLE [ ADOR }], GET_BIT [ CSR_ALL })); 
TEMP2 = GET BIT [ ‘COR. ALL }; 
EXITLOOP; 
END; 


af aa Eau 999 
PRINTB ( MSG19, GET_BIT [ CSR_AiL } ); 


INCR INDEX FROM 0 TO 2000 DO 
*— { CSR, CA } EQ@LU ZERO 


BEGIN 
TEMPS = GET_BIT [{ CSR_ALL }; 
EXITLOOP; 
END; 
et eee { CSR, CA }) EQLU ONE 
PRINTS ( MSG21, GET_BIT [ CSR_ALL } ); 
IF . TEMPS EQLU 2000 
THEN 
PRINTS ( MSG20, GET_BIT [ CSR_ALL ]} ); 


INCR INDEX FROM O TO 1000 DO 
Y _BIT { CSR, RI ) EQLU ONE 


BEGIN 
TEMPS = GET_BIT { CSR_ALL }; 
EXITLOOP; 
F 
IF .TEMP6 EQLU 1000 
THEN 
PRINTS ( MSG22, GET_BIT [ CSR_ALL } ); 
CHK_CSR_STATUS ( CSR_STATUS, CSR_STATUS ); 


= 0118 


VAX-11 Blies-16 v4.0-579 


DISK $USER2: [MAZURCZK. SOC )ZQNAS. ans 


!o'1 ‘, 0 
Cr -XMIT_STATUS ( XFLG_STATUS, xwO11_ STATUS s ! 0'140000', 0 
RCV_STATUS ( RFLG_STATUS, RWD1_STATUS ); ! 0'140000', 0 
a PACKETS ( ); 
ENDTST; 
.SBTTL $16 TEST 6 - ETHERNET CARRIER SENSE TEST 
$16: MOV R1,-(SP) 
000030 SUB @30,SP 
000000G JSR PC, RESET .OEQNA 
000000G JSR PC,CLR.RBUFFER 
000000G JSR PC,CLR. XBUFFER 


34 
(16) 


2133 


2145 
2151 
2152 


C10 


SEQ 0119 

CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:45:50 VAX-11 Blies-16 V4.0-579 Page 35 

TEST 6 - ETHERNET CARRIER SENSE TEST 22-Feb-1984 14:42:49 DISKSUSER2:([MAZURCZYK.SOC)ZQNA3.BLI;1 (16) 
017737 000000G 000000G MOV SHWP . TABLE , TMP. IOP. ADR $ 2153 
005000 CLR RO s INDEX 2155 
017760 000000G 000000G 18: MOV STMP.IOP.ADR,ETH.STATION.ADR(RO); #,¢( INDEX) 2157 
062737 000002 000000G ADD #2, TMP. IOP.ADR ; 2158 
062700 000002 ADD #2,R0 s #, INDEX 2155 
020027 000012 CMP RO, #12 s INDEX,«¢ 
003765 BLE i$ 
005000 CLR RO s INDEX 2161 
010001 2s: MOV RO,R1 s INDEX,« 2163 
006301 ASL R1 
063701 000000G ADO REG. ADR ,R1 
011116 MOV (R1),CSP) s *,TMP.LOCATION 
111637 000000G MOvVB (SP), TEYTE1 
111660 000000G MOvVB (SP), XMIT. BUFFER(RO) s #,¢C INDEX) 2164 
111660 000006G MOVB (SP), XMIT.BUFFER+6(RO) s #,*C INDEX) 2165 
005200 INC RO s INDEX 2161 
020027 000005 CMP RO,@5 s INDEX, 
003761 BLE 2s 
112737 000220 000014G MOvB #220, XMIT .BUFFER+14 F 2168 
105037 000015G CLRB XMIT.BUFFER+15 s 2169 
112737 000001 000016G MOVB #1, XMIT.BUFFER+16 : 2170 
005000 CLR RO s INDEX 2172 
110060 000017G 3%: MOVB RO, XMIT .BUFFER+17(RO) s INDEX, #( INDEX) 2173 
G 75200 INC s INDEX 2172 
020027 002733 CMP RO, #2733 s INDEX,¢ 
003772 BLE 
012737 002752 000000G MOV #2752, RBUF .LENGTH i 2179 
012700 002752 MOV #2752, H 21450 

ASR 
NEG 

010037 000000G MOV RO, XBUF .LENGTH 
010046 MOV RO, -(SP) s XBUF .LENGTH,« 2182 
012746 120000 MOV #-60000, -( 
004737 000000G JSR PC ,SET.ROESCR.LIST 
013716 000000G MOV XBUF .LENGTH, : 2183 
012746 120000 MOV @-60000, -( SP 
004737 000000G JSR PC, SET.XDESCR.LIST 
013700 MOV REG. ADR,RO ; 2185 
012701 000016 MOV Hl ae 
052711 001500 BIS #1500, (R1) 3 2186 
012777 000000G 000004G MOV @RCV.0.LIST,@IOP. TABLE +4 H 2188 
005077 000006G CLR BIOP . TABLE +6 3 2189 
012777 000000G 000010G MOV @xMIT.O.LIST,@IOP. TABLE+10 ; 2191 
005077 000012G CLR BIOP. TABLE+12 3 2192 
012700 001750 MOV #1750,RO s *, INDEX 2194 
011166 000010 4%: MOV (R1), i0( SP) s *,TMP.LOCATION 2195 
032711 020000 BIT #20000, (R1) s #,TMP.LOCATION 
001405 BEQ S$ 
011166 000012 MOV (R1),12¢SP) s *,TMP.LOCATION 2199 
011137 000000G MOV CR1), TEMP) 3 TMP.LOCATION,+ 
000401 BR 6% ’ 2197 
077013 S$: S08 RO,46 s INDEX,¢ 2194 


CZQNAAO DEQNA FUNCTIONAL TEST 


TEST 6 - ETHERNET CARRIER SENSE TEST 


000000G 001747 6%: 
000014 
000000G 
000002 

7%; 
003721 
000016 000016 8s: 


000000G 003720 4h: 


128: 
000016 000030 13%: 


14%: 
000000G 001750 15%: 


D10 
2-Feb-1984 14:45:50 
2-Feb-1984 14:42:49 


= alma taaaidiaad 
(R1),14(SP) 
sP 


#3721,R1 

16( RO), 16(SP) 
creme 
16(SP),20(SP) 
20( SP), TEMPS 
10% 


R1,8% 
16(RO),22(SP) 
1 ies -22(SP) 


11 
22(SP),24(SP) 
24(SP), (SP) 


. ADR ,RO 
16(RO),26( SP) 
26(SP), (SP) 


16(R0}, 30( SP) 


14% 
30( SP), 32(SP) 
$2¢SP), TEMPS 


VAX-11 Blies-16 V4.0-579 


. 
s *,TMP.LOCATION 
3; TMP.LOCATION,« 


3; SP,« 


F 
3; *, INDEX 

s *, TMP .LOCATION 
s *,TMP.LOCATION 


, TMP. .LOCATION 
TMP .LOCATION,¢ 


a 
; 
° 
s INDEX, 
3 *,TMP.LOCATION 
s *,TMP.LOCATION 
3 «, TMP .LOCATION 
3s TMP .LOCATION,« 


3; SP, 


6 
: *,TMP.LOCATION 
; TMP.LOCATION,« 


; SP, 


#, INDEX 
s *,TMP.LOCATION 


, TMP .LOCATION 
TMP .LOCATION, 


INDEX, ¢ 


3; *, TMP - LOCATION 
s TMP .LOCATION,¢ 


s SP, 


=. 0120 
DISK $USER2: [MAZURCZYK. SOC )ZQNA3. ets 


36 
(16) 
2203 
2205 


2219 
2221 


2224 
2223 
2224 


2227 
2226 
2223 
2231 


2233 


; Routine Size: 
3; Maximum stack 


000000 
000000 
000004 


000006 
000010 
000012 


: Routine Size: 
3; Maximum steck 


004737 
104466 
006000 
103773 
000207 


s 2241 1 
s e242 1 


CZQNAAO DEQNA FUNCTIONAL TEST 


TEST 6 - ETHERNET CARRIER SENSE TEST 


TRAP 
CMP 
100220 16%: MOV 
MOV 
JSR 
140000 MOV 
CLR 
JSR 
140000 MOV 
020000 MOV 
000000G JSR 
000000G JSrn 
000044 ADD 
MOV 
RTS 
229 words, Routine Base: ABSCODES 
depth per invocation: 20 words 
SBTTL 
003252’ T6:: 
1%: SR 
TRAP 
ROR 
BLO 
RTS 


6 words, 
depth per invocetion: 


E10 
2-Feb-1984 14:45:50 
2-Feb-1984 14:42:49 


a 
38 
58 


aa 
é 


» CHK .RCV. STATUS 
— -PACKETS 


Routine Bese: ABSCODES + 4164 
2 words 


VAX-11 Bliss-16 V4.0-579 


DISK $USER2: [MAZURCZYK . SOC )ZQNA3.BLI;1 


SEQ 0121 
Page 37 
(16) 


2235 


2236 
2237 


2238 
2133 


eee pe ee 


F10 


2-Feb-1984 14:45:50 
2-Feb-1984 14:42:49 


CZQNAAO DEQNA FUNCTIONAL TEST 
TEST 7 - STATION ADDRESS RAM TEST 


SSBTTL ‘TEST 7 - STATION ADDRESS RAM TEST’ 
**¢ 


TEST 7: STATION ADDRESS RAM TEST 
DESCRIPTION: 


SEQ 
VAX-11 Bliss-16 V4.0-579 


P 
DISK $USER2: [MAZURCZYK . SOC )ZQNA3.BLI;1 


0122 


age 38 
(17) 


es Ge Ge Ge Ge Ge Ge @e Ge Ge Gt GF Ge Ge Ge GF Ge Gt Gt Ge GF Ge GF Ge GS GH Ge Ge Ge Gt Ge GH Gt Ge Ge Ge Ge Ge Ge OF 
~ 
~ 
KPUWEHAAALDAALDAVVUU SHS ALL SSA SLL SSA SSS ASSL HASH S&S S SWUwWww 


G10 
CZQNAAO DEGNA FUNCTIONAL TEST 
TEST 7 - STATION ADDRESS RAM TEST 


BGNTST; 


RBUF _LLENGTH = 128; 

XBUF _LLENGTH = - ( .RBUF_LENGTH f -1 ); 

DECR INCEX1 FROM 7 TO 0 DO 

BEGIN 

RESET_DEQNA ( ); 
SET_ROESCR_LIST ( 
SET_XDESCR_LIST ( 
CLR_RBUFFER ( ); 


INCR INDEX2 FROM O TO 127 DO 
XMIT_BUFFER ({ .INDEX2 ] = 


PUT_BIT ( CSR, IE, SET_IT ); 
-IOP_TABLE [ XLO_ADR } = -_—" -O_LIST; 


.XBUF _LLENGTH, VE ); 
.XBUF _LLENGTH, VSE ); 


-PTRN_TABLE [ .INDEX1 ]; 


.IOP_TABLE [{ XHI_ADR ] = 
- IOP_ og | if na -ADR J] = RCV_O_LIST; 
.IOP_TABLE [ RHI_ADR } = 0; 


DELAY ( 300 ); 
IF GET_BIT ( CSR, RI }) NEQU ONE 
THEN 
BEGIN 
ERROF (€ 0801, E0001, ERRORSREPORT ); 
DODU € DEQNA_NO ); 
OOCLN; 


CHK_CSR_STATUS ( CSR_STATUS, CSR_STATUS ); : 
CHK_XMIT_STATUS ( XFLG_STATUS, xWO12_STATUS ); : 
CHK_RCV_STATUS ( RFLG_STATUS, RWO1_STATUS ); : 
COMPARE _PACKETS ( ); 
END; 
ENDTST; 
.SBTTL 
000000G $T7: JSR R1, $SAVE3 
CMP -(SP),-(SP) 
000200 0000006 MOV #200, RBUF .LENGTH 
MOV #200 ,,RO 
ASR RO 
NEG RO 
000000G MOV RO, XBUF .LENGTH 
000007 MOV #7,R3 
000000G 1%: JSR PC, RESET .DEQNA 
000000G MOV XBUF . LENGTH, -(SP) 


22-Feb-1984 14:45:50 
2-Feb-1984 14:42:49 


{ 
! 0’ 100220', 0' 100220' 
000000° 


SEQ 0123 
VAX-11 Bliss-16 V4.0-579 Page 39 | 
DISK $USER2: [MAZURCZYK . SDC )ZQNA3.BLI;1 (18) | 


0‘ 140000‘, 0’ 


! 0'140000' , 0'020000' 


$17 TEST 7 - STATION ADDRESS RAM TEST 


3 2240 
3 2253 
3 2254 
3 4, INDEXL 

3 2257 
3 2258 


Routine Size: 


Meximum stack 


CZQNAAO DEQNA FUNCTIONAL TEST 
TEST 7 - STATION ADDRESS RAM TEST 


120000 
000000G 


000000G 
130000 
000000G 
000000G 
000000G 000000G 


000177 


101 words, 


depth per invocation: 


2s: 


3$: 


4$: 
S$: 
63%: 


7$: 


H10 


2-Feb-1984 14:45:50 
22-Feb-1984 14:42:49 


@-60000, -( SP) 
PC,SET.ROESCR.LIST 
XBUF .LENGTH, (SP) 
@-50000, -( SP) 
PC,SET.XDESCR.LIST 
— ER 


0 
— TABLECR3), XMIT.BUFFERCRO) 
RO,@177 
es 


REG. ADR ,RO 

#100, 16(RO) 
OxXMIT.D.LIST,@IOP. TABLE +10 
@IOP . TABLE+12 
ORCV.D.LIST,@IOP. TABLE +4 
SIOP . TABLE +6 


TATUS 
PC, COMPARE. “PACKETS 
o* »SP 


1% 
CSP)+,CSP)+ 
PC 


Routine Base: ABSCODE$ + 4200 


13 words 


VAX-11 Bliss-16 V4.0-579 
DISK $USER2: [MAZURCZYK . SOC JZQNA3. euts1 


INDE X2 
*#( INDEX1), *( INDEX2) 


INDEX2 
INDEX2, + 


*,$$TMPe 
*,$$TMP1 
$$TMP 
$$TMP1,« 
$$TMP2 


*, TMP.LOCATION 


INDEX1 


_ ng 


40 
(18) 


000000 004737 
104466 
006000 
103773 
000207 


000000 
000004 


000006 
000010 
002012 


; Routine Size: 


I10 


_ og 

CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50 VAX-11 Bliss-16 V4.0-579 41 
TEST 7 - STATION ADDRESS RAM TEST 2-Feb-1984 14:42:49 DISK$USER2: [MAZURCZYK. SOC )ZQNA3.BLI; 4 Oe 18) 

-SBTTL T7 TEST 7 - STATION ADDRESS RAM TEST 
004200' T?:: | 

1$: JSR PC,$T7 ; 2288 | 

TRAP 66 

ROR RO 

BLO 1$ 

RTS PC 
6 words, Routine Base: ABSCODES + 4512 


; Maxima stack depth per invocation: 2 words 


3 2291 1 
F 2292 1 
3 2293 1 END 
3 2294 0 ELUDOM 
3 OTS external references 
-GLOBL $SAVES. $SAVE3, s$SAVE2] 
3 PSECT SUMMARY 
; Psect Name Words Attributes 
3 AB SCODE $ 1195 RO, I ,. LCL, REL, CON 
Seeks 0a “ol Be af eee Symbols -------- Pages Processing 
3 File Totel Loaded Percent Mapped Time 
; DISKSUSER2:[MAZURCZYK. SDC JQNALIB.L16;2 
F 157 97 61 12 00:00.0 


3; Size: 


COMMAND QUALIFIERS 


BLISS/POP11 ZQNA3.BLI/LIST=ZQNA3.LIS/OBJECT=ZQNA3.OBJ/SOURCE =PAGE : 53 


1195 code + 0 date words 


! 
| 
| 
| 
Library Stetistics | 
| 





J10 


SEQ 0126 
ZQNA3 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:45:50 VAX-11 Bliss-16 V4.0-579 Page 
v01.0 TEST 7 - STATION ADDRESS RAM TEST 
Run Time: 00:43.3 


Elapsed Time: 01:51.5 
Lines/CPU Min: 3176 
Lexemes/CPU-Min: 26402 
ey Used: 256 pages 
Compilation Complete 


oe ef oF oF oF oF 


RRR er OOOCC0CO 


K10 


CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 1 
30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK . SOC )ZQNA4 .BLI;1 (1) 


MODULE ZQNA4 (TITLE ‘CZQNAAO DEGNA FUNCTIONAL TEST’ 
IDENT = ‘VO1.0', 
ADDRESSING _MODE( ABSOLUTE ) 


= 
SSBTTL ‘GLOBAL ROUTINE DECLARATION MODULE’ 


BEGIN 

LIBRARY ‘QNALIB’ ; ! QNALIB LIBRARY 

REQUIRE ‘BLSMAC.REQ’ ; ! DIAGNOSTIC SUPERVISOR LIBRARY 
! <BLF /NOF ORMAT > 


SEQ 0127 


dd dd ed ol ol el ol ol ol a ol 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL ROUTINE DECLARATION MODULE 


PSECT 
CODE = ACSCODES; 


See 


30-Jan-1984 12:25:09 


L1i0 


2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK. SDC ]ZQNA4.BLI; 1 


. O.SIZE, WORD ) FIELO ( OL_FIELDS ), 


O_SIZE, WORD ) FIELD ( DL_FIELDS ), 
DESCR_SIZE, i. FIELD ( DL_FIELOS ), 


: EXTERNAL DATA USED BY THIS MODULE 

Soe 

EXTERNAL 

See 

COMMUNICATION AREA DECLARATIONS 
RCV_D_LIST : BLOCK [ 
XMIT_O_LIST : BLOCK [ 
DESCR_LIST : BLOCK [ 
RCV_BUFFER : VECTOR { B_SIZE, BYT 
XMIT_BUFFER : VECTOR [ IZE, BYTE ), 
DATA_BUFFER : VECTOR ( BUF_SIZE, BYTE }, 
SETUP _BUFFER : VECTOR ( SETUB_SIZE, 

_TABLE : VECTOR [ 8, ° 

BD_PROM_DESCR VECTOR { BD_OD_SIZE, WORD }, 
STATION_ADR : VECTOR [ 4, ‘ 
TARGET _ADR : VECTOR { T_SIZE, BYTE }, 

See 

HARDWARE P-TABLE STORAGE DECLARATIONS 


HWP_TABLE : REF BLOCK [ HWP_SIZE, WORD ) FIELD ( HWP_FIELDS ), 


s 
: SOFTWARE P-TABLE STORAGE DECLARATIONS 


SWP_TABLE : REF BLOCK [ SWP_SIZE, WORD ] FIELD ( SWP_FIELDS ), 


PEEEER EERE 


J 
: SYSTEM CLOCK STORAGE DECLARATIONS 


CLOCK RATE 
STORE SECONDS 
STORE MINUTES 


CLOCK INTERRUPT VECTOR ADR 
STORE CSR ADDR FOR CLOCK HERE 
STORE CLOCK START VALUE 
TOTAL @ OF CLOCK INTERRUPTS 
LOC. TO RETURN CLOCK ADDR. 
TYPE OF CLOCK ON SYSTEM 


_ 0128 


2 
(2) 


=! 


@e Ge Ge Ge Ge GF Gs Ge Gt Ge Ge Ge GF Ge Ge GS GF Ge GF Gs Ge Ge Ge Gs GF GF Gs Gs Ge GH GF GF GF Ge Ge Gs GF GF Ge GF OF ae BH GH GF OF 


de dd dd dd ed dl el ed el el 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE DECLARATION MODULE 


See 
4 
. 


MISCELLANEOUS DATA DECLARATIONS 


XBUF _LENGTH 
RBUF _LENGTH 
FREE _MEM_ADR 


MEM_SIZE 
INTERRUPT _FLG 
COUNTER 


-ADR 
IOP_DATA 


TEMPORARY STORAGE DATA DECLARATIONS 


TMP _IOP _ADR 
TMP _REG_DATA 


: WORD, 
: WORD, 
: WORD, 
Hy WORD, 
: WORD, 
: WORD, 
: WORD, 


M10 


22-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 
30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK . SDC ]ZQNA4 .BLI; a 


! CO=NONE , -1*L-CLOCK,1=P_CLOCK) 


! XMIT BUFFER LENGTH IN WORDS 
! RCV BUFFER LENGTH IN BYTES 
! FREE MEMORY BEGIN ADR 

! FREE MEMORY SIZE 

! 1 = INTERRUPT OCCURED 


: REF REG_STR FIELD ( IOP_FIELDS ), 
: REF ADR_STR FIELD ( IOP_FIELOS ), 
: REF REG_STR FIELD ( IOP_FIELDS ), 


sg88828888 


oo 
ao 
< 
+ 
m 
s 


i 


! I/O PAGE REGISTER ADDRESS 
I/O PAGE mat CONTENTS 


+ 
m 
% 
$ 
a 
< 
Ww 
par 
: 
- 
5 
> 
~ 
bt 
3 


PARAMETER 


N10 


! 
SEQ 0130 | 
ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 4 
v0O1.0 GLOBAL ROUTINE DECLARATION MODULE 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK . SDC ]ZQNA4.BLI;1 (3) | 
Fy 1601 1 Yee 
3 1602 1 H DEBUG MESSAGES DECLARED EXTERMALLY 
3 1603 1 !-- 
; 1604 1 
: 1605 1 DBM4O ,0BM45, 
; 1606 1 
; 1607 1 fee 
F te : DIAGNOSTIC ERROR MESSAGES DECLARED EXTERNALLY 
D ewe 
3 1610 1 
3 1611 1 MSG_1TDR, MSG_2TOR, MSG_3TOR, MSG_4TOR, 
: 1612 1 MSGO2, MSGO3, MSGO4, MSGOS, MSGO6, MSGO7, MSGO8, MSGO9, MSGi0, MSGi11, 
: 1613 1 MSG12, MSG13, MSG14, MSG1S5, MSG16, MSG17, 
$ 1614 1 E0001, 
: 1615 1 ERRO4, ERROS; 
3 1616 1 


Bil 


SEQ 0131 

ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Blies-16 v4.0-579 Page 5 
v01.0 GLOBAL ROUTINE - ERRORSREPORT ( ) 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK .SDC )ZQNA4 .BLI;1 (4) 
: peer : SSBTTL ‘GLOBAL ROUTINE - ERRORSREPORT ( )° 
3 
3 1619 1 See 
3 1620 1 : 
3 1621 1 ¢ GLOBAL ROUTINE : ERROR SREPORT 
Fy 1622 1 4 
3 1623 1 § DESCRIPTION: 
3 1624 1 : 
3 1625 1 : This routine reports errors to the operetor 
8 1626 1 : 
Fy 1627 1 $-- 
F} 1628 1 
3 “< : SSBTTL ‘GLOBAL ROUTINE - ERRORSREPORT ( )’ 
F 
3 1631 1 BGNMSG (CERRORSREPORT ); 

- TITLE ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 

-IDENT /VO1.0/ 

-ENABL AMA 

-GLOBL RCV.O.LIST, XMIT.O.LIST, DESCR.LIST 

-GLOBL RCV.BUFFER, XMIT.BUFFER, DATA.BUFFER 

-GLOBL SETUP.BUFFER, IOP.TABLE. BD.PROM.DESCR 

-GLOBL STATION.ADR, TARGET.ADR, HWP. TABLE 

-GLOBL SWP.TABLE, TICKS, SECONDS, MINUTES 

GLOBL . ‘ . VEC, CSR 

-GLOBL CLK.START, CLK.HERTZ, 

-GLOBL By . XBUF.LENGTH, RBUF 

-GLOBL FREE. ADR, - SIZE, TERRUPT FLG 

-GLOBL COUNTER, CHECKSUM, CSR.WORD, PRIO 

OBL » REG.ADR, GET. « IOP.OATA 

-GLOBL TMP.IOP.ADR, TMP.REG.DATA, TEMP1 

-GLOBL TEMP2, TEMPS, TEMP4, TEMPS, TEMP6 

.GLOBL TEMP7, TEMPS, TEHKPS, TeyTei, TBYTE2 

-GLOBL TeyTEs, TBYTES, TADR1, P1, P2 

-GLOBL P3, PS, 0BM40, 0BM45, MSG.1TOR 

-GLOBL MSG. STOR. MSG. 3TOR, MSG.4TOR, MSGO2 

-GLOBL MSGOS, MSGO4, MSGOS, MSGO7 

-GLOBL MSGOS, MSGO9, MSG10, MSG11, MSG12 

-GLOBL M™SG13, MSG14, MSG15., MSG16, MSG17 

-GLOBL £0001, ERRO4, ERROS 

-SBTTL ERRORSREPORT GLOBAL ROUTINE - ERRORSREPORT ( ) 
000000 -PSECT ACSCODES, RO 
000000 004737 O00000V ERRORSREPORT: : 

JSR PC ,MSERRORSREPORT 3 1631 
000004 104423 TRAP 23 
000006 000207 RTS PC 
; Routine Size: 4 words, Routine Base: ACSCODES$ + 0000 


Cil 
ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 
v0O1.0 GLOBAL ROUTINE - ERRORSREPORT ( ) 30-Jan-1984 12:25:09 


; Maximum stack depth per invocation: 2 words 


3 1632 2 
: 1633 2 PRINTB ( MSGO3 ); 
; 1634 2 PRINTB ( MSGO4, .XMIT_D_LIST [ FLGWO ], .RCV_D_LIST [ FLGWD } ); 
>; 1635 2 PRINTB ( MSGOS, .XMIT_D_LIST [ DBITS J}, .RCV_D_LIST [{ DBITS } ); 
>; 1636 2 PRINTB ( MSGO6, .XMIT_D_LIST ( LOADR }, .RCV_D_LIST [ LOADR } ); 
; 1637 2 PRINTB ( MSGO7, .XMIT_O_LIST ( TwOL }, .RCV_O_CIST ( TWOL } ); 
> 1638 2 PRINTB ( . .XMIT_O_LIST { STWO1 J, .RCV_O_LIST ( STwO1 } ); 
> 1639 2 PRINTB ( MSGO9, .XMIT_D_LIST [ STWO2 }, .RCV_D_LIST [{ STwD2 } ); 
; 1640 2 PRINTS ( MSG10, GET_BIT { CSR_ALL )} ); 
; 1641 2 PRINTS ( MSG11, .HWP_TABLE [ ADDR } ); 
3 1642 2 
> 1643 1 ENDMSG; 
.SBTTL 
000000 005746 MOERROROREPORT : 
000002 012746 MOV @MSGO3, -(SP) 
000006 012746 000001 MOV #1,-(SP) 
000012 010600 MOV J 
000014 104414 TRAP 14 
000016 013716 000000G MOV RCV.D.LIST, (SP) 
000022 013746 000000G MOV XMIT.DO.LIST, -(SP) 
000026 012746 000000G MOV @MSGO4, -( SP) 
000032 012746 000003 MOV 03, -(SP) 
000036 010600 SP RO 
000040 104414 TRAP 14 
000042 013716 0000026 MOV RCV.D.LIST+2,(SP) 
000046 013746 000002G MOV XMIT.D.LIST+2, -(SP) 
000052 012746 000000G MOV @MSGOS, -(SP) 
000056 012746 000003 MOV @3,-(SP) 
000062 010600 MOV J 
000064 104414 TRAP 14 
000066 013716 000004G MOV RCV.O.LIST+4,(SP) 
000072 013746 000004G MOV XMIT.D.LIST+4, -(SP) 
000076 012746 000000G MOV @MSGO6, -( SP) 
000102 012746 000003 MOV #3, -(SP) 
000106 010600 MOV SP, 
000110 104414 TRAP 14 
000112 013716 000006G MOV RCV.O.LIST+6,(SP) 
000116 013746 000006G MOV XMIT.D.LIST +6, -(SP) 
000122 012746 000000G MOV @MSGO7, -( SP) 
000126 012746 000003 MOV 3, -(SP) 
000132 010600 SP RO 
000134 104414 TRAP 14 
000136 013716 000010G MOV RCV.D.LIST+10,(SP) 
000142 013746 000010G MOV XMIT.D.LIST+10, -(SP) 
000146 012746 0000006 MOV @MSGO8, -( SP) 
000152 012746 000003 MOV #3, -(SP) 
000156 010600 MOV SP ,RO 


reaa 


VAX-11 Bliss-16 V4.0-579 


SEQ 0132 


Page 6 
DISK $USER2: [MAZURCZ1K . SDC )ZQNA4 .BLI;1 (4) 


1636 


1637 


1638 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL ROUTINE - ERRORSREPORT ( ) 


3; Routine Size: 
3 Maximum stack 


Dil 


2-Feb-1984 14:47:44 
30-Jan-1984 12:25:09 


ia 
RCV.O.LIST+12,(SP) 
XMIT.O.LIST+12, -( SP) 
OMSGO9, -( SP) 


@3,-(SP) 
SP,RO 

14 

REG. AOR ,RO 
16(RO), SOC SP) 
SOC SP),(SP) 
@MSG10, -(SP) 
@2,-C(SP) 
SP,RO 

14 

SHUP . TABLE , (SP) 
@MSG11, -(SP) 
@2,-(SP) 

SP ,RO 


#62, SP 
PC 


Routine Base: ACSCODES + 0010 
depth per invocation: ds 


VAX-11 Bliss-16 v4.0-579 Page 
DISK $USER2: [MAZURCZYK. SDC )ZQNA4. BLI;1 


«, TMP ..LOCATION 
TMP .LOCATION,« 


_ 0133 


7 
(4) 


1639 


1640 


1641 


1631 


= 


oo of © oF G+ G+ Ge Ge GF Ge Ge Ge Ge Ge OF 
ry 
Sal 
wi 
w 


000000 004737 
000004 104423 
000006 000207 


; Routine Size: 
3; Maximum steck 


é 


000000 012737 
000006 000207 


3; Routine Size: 


ee ee 


err 


Eil 
= 0134 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 8 
GLOBAL ROUTINE - ELSREPORT ( ) 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK. SDC JZQNA4. BLI;1 (S) 
SSBTTL ‘GLOBAL ROUTINE - E1SREPORT ( )' 


a 
o 


GLOBAL ROUTINE : E1SREPORT 
DESCRIPTION: 


This routine reports errors to the operator 


Ce ee 


SSBTTL ‘GLOBAL ROUTINE - E1SREPORT ( )' 
BGNMSG ( E1SREPORT ); 


.SBTTL E1SREPORT GLOBAL ROUTINE - E1SREPORT ( ) 


000000V E1SREPORT: : 
JSR PC ,.MSE1$REPORT PF 1660 
TRAP 23 
RTS PC 

4 words, Routine Base: ACSCODES + 0276 


depth per invocation: 2 words 


TEMP1 = 1; 
ENDMSG; 
-SBTTL MSE1SREPORT GLOBAL ROUTINE - E1$REPORT ( ) 
000001 000000G MSE1SREPORT: 
MOV 01, TEMP1 F 1662 
RTS PC Fy 1660 
4 words, Routine Bese: ACSCODES + 0306 


; Maximum stack depth per invocation: 0O words 


$ 1665 
3 1666 


1 
1 


<N 
=$ 
rw 


Nd ek dd od ol ool ol od 


Fil 


SEQ 0135 
CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:47:44 VAX-11 Blies-16 V4.0-579 Page 9 . 
GLOBAL ROUTINE - RESET_DEQNA ( ) 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK . SDC )ZQNA4 .BLI; 1 (6) | 


SSBTTL ‘GLOBAL ROUTINE - RESET_DEQNA ( )° 
GLOBAL ROUTINE RESET_DEQNA : NOVALUE = 


* 


GLOBAL ROUTINE : RESET _DEQNA 
DESCRIPTION: 


This routine verifies that DEQNA can be reset by setting bit 1 in the 
= ol ghana After the reset, CSR is checked for nominal 
status. 


Hardware tested: Q-Bus DMA Interface 
Processing: 
BEGIN 


set Software Reset (SR) bit in CSR and check for 
expected CSR status 

IF error 

THEN 9 
print error if not inhibited 

ENDIF aeentinas 


clear SR bit in CSR and check for expected CSR status 
F error 
THEN 
print error message if not inhibited 
ENDIF 


END 


OS OS OS 6S 6S OS 6S 6S 1S OS OS OS OS OS 1S 1S 1S 1S OS CS tS IS tS tS terete terete te 


<N 
°F 
~ 
° 


Ge Os Os Gs Ge OF Ge Ge Gs GF GF OF Ge GP OF GF OF Ge Gs SF Os Gs OF Ge Os OF Ge GF Se OF OF OF Ge SF OF OF OF oF OF 
a 
ft 
Re 

KP NNWWUUWRNRMRNNNNNVNNNWWWUUANRNNVA NR RR ee ee 


060002 
005012 
152712 


Gil 


SEQ 0136 


CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 10 | 
GLOBAL ROUTINE - RESET_DEQNA ( ) 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK .SDC ]ZQNA4 .BLI;1 (7) 
| 
Yee ' 
H 
' RESET THE DEVICE AND CHECK CONTENTS OF CSR FOR NOMINAL STATUS ! 
? 
- 
BEGIN 
PUT_BIT € CSR, ALL_BITS, ZERO ); 
PUT_BIT € CSR, SR, SET_IT ); 
DELAY ( 50 ); 
IF 1s BIT ( CSR, ALL_BITS ) NEQGU CSR_1_STATUS 
BEGIN 
PRINTB ( ERROS, .HWP_TABLE [ ADDR ], GET_BIT [ CSR, ALL_BITS ) ); 
ERROF ( OS, £0001, E1$REPORT ); 
DODU CDEQNA_NO); 
DOCLN; 
END; 
See 
. 
: CLEAR SOFTWARE RESET BIT IN THE CSR AND CHECK FOR EXPECTED STATUS 
Ss 
PUT_BIT ( CSR, SR, CLR_IT ); 
DELAY ( SO ); 
——_— ( CSR, ALL_BITS ) NEQU CSR_2_STATUS 
BEGIN 
PRINTS ( ERROS, .HWP_TABLE [ ADOR }, GET_BIT [ CSR, ALL_BITS ) ); 
ERROF ( O05, £0001, ELSREPORT ); 
DOOU (CDEQNA_NO); 
DOCLN; 
END; 
END; 
-GLOBL LSDLY 
-SBTTL RESET.DEQNA GLOBAL ROUTINE - RESET_DEQNA ( ) 
000000G RESET .DEQNA: : 
J R1, $SAVE]) 3 1669 
000012 SUB #12,SP 
MOV REG.ADR,RO 3 1711 
000016 MOV #16,R2 
ADD RO,R2 
CLR (Re) 
000002 BISB @2,(R2) 3 1712 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - RESET_DEQNA ( ) 


012701 000062 
001410 

013700 000000G 
001403 
005066 


000004 
026627 000004 010060 


1$: 


2s: 
3$: 
4$: 


S$: 


6%: 


78: 
8: 
9%: 


Hid 


2-Feb-1984 14:47:44 
30-Jan-1984 12:25:09 


1% 


SO"S 


@DEQNA .NO,RO 


6% 
16(RO),4(SP) 
ae eee 


acsp), 6(SP) 
6(SP). -(SP) 


E0001 
E1$REPORT 
@DEQNA .NO,RO 
Si 

a4 


VAX-11 Bliss-16 V4.0-579 


s *,$$TMP2 
3 *,$$TMP1 
: $$TMP 

3; $$TMP1,« 
; $$TMP2 


; *,TMP.LOCATION 


; *,TMP.LOCATION 


Fy a, $sTMP2 
s *,$$TMPL 
3: $$TMP 

: $$TMP1,« 
: $$TMP2 


; *,TMP.LOCATION 
; TMP.LOCATION,« 


s *,TMP.LOCATION 
3 TMP -LOCATION, * 


3 SP,* 


—, 0137 
DISK $USER2: [MAZURCZYK . SOC ]ZQNA4.BLI; a. 


11 
(7) 
1713 


1714 


1717 


1718 
1719 


1716 
1729 


1730 


1731 


1734 


1735 


1736 


Tit 


SEQ 0138 | 
ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 12 
v01.0 GLOBAL ROUTINE - RESET_DEQNA ( ) 30-Jan-1984 12:25:09 — DISK$USER2:(MAZURCZYK.SOC]ZQNA4.BLI;1 = (7) | 
000270 062706 000010 ADD #10,SP : 1733 | 
000274 062706 000012 10$: ADD #12,SP i 1669 | 
000300 000207 RTS PC | 
3 Routine Size: 97 words, Routine Base: ACSCODES + 0316 


3; Meximum stack depth per invocation: 14 words 


Fy 1741 1 


<N 
“3 
ry 
° 


ee G+ Gs Ge Ge G+ Ge Gs Gs GF Gs Ge Ge GF GF Ge Ge Ge Gt GF Ge Ge Ge GH GH Ge Gt Ge Ge GF 
hele 
Nw 
¥yui 
N 
KPMMW PSPS aWEaWWANNRP RRP RP RRP Re Re Re RP Ree ee 


2-Feb-1984 14:47:44 
30-Jan-1984 12:25:09 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - VER_DESCR_STATUS ( ) 


SSBTTL ‘GLOBAL ROUTINE - VER_DESCR_STATUS ( )' 
GLOBAL ROUTINE VER_DESCR_STATUS : NOVALUE = 


* 
* 


GLOBAL ROUTINE : VER_DESCR_STATUS 
DESCRIPTION: 


This routine compares actual to original descriptor. 


BEGIN 
INCR INDEX FROM O TO BD_D_SIZE - 1 DO 
BEGIN 
TEMP1 = .DESCR_LIST { .INDEX, W_LEN }); 
al I ae, NEGU -1 ) OR ( .TEMPL NEQU -BO_PROM_DESCR [ .INDEX ] ) 


BEGIN 

PRINTB € ERRO4, .INDEX, .TEMP1, .BD_PROM_DESCR [ .INDEX }); 
ERROF (€ 04, E0001, ERRORSREPORT ); 

DODU ( DEQNA_NO ); 


N; 
END; 
END; 
END; 
-SBTTL VER.DESCR.STATUS GLOBAL ROUTINE 
000000G VER.DESCR. STATUS: : 
JSR Ri » SAVE] 
CLR R2 
1%: MOV R2,RO 

ASL RO 
000000G 000000G MOV DESCR.LISTCRO), TEMP1 
000000G MOV DESCR.LISTCRO),R1 
177777 CMP R1,@-1 

BNE 2s 
000000G a 5 ee PRIN. SERIE? 
000000G 2s: MOV BD .PROM.DESCRCRO), -C SP) 

MOV R a* ) 

MOV R2,-CSP) 
000000G MOV @ERROG , -( SP) 
000004 MOV @4,-CSP) 

MOV e 

TRAP 1 

TRAP 55 


VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK. SDC )ZQNA4 .BLI; 1 


VER_DESCR_STATUS ( ) 


INDEX 
INDEX, * 


INDEX, 


SP, 


SEQ 0139 
13 
(8) 


1764 


1765 


K14 


_ 0140 
ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 14 
vo1.0 GLOBAL ROUTINE - VER_DESCR_STATUS ( ) 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK. SDC ]ZQNA4. BLI;1 (8) 
000070 000000G «WORD E0001 
000072 000000’ -WORD ERRORSREPORT 
000074 012700 000000G MOV @DEQNA.NO,RO 3 1766 
000100 104451 TRAP S1 
000102 104444 TRAP 44 
000104 062706 000012 ADD #12,SP 1763 
000110 005202 3$: INC Re 3; INDEX 1758 
000112 020227 000017 CMP R2,017 ; INDEX,« 
000116 003733 BLE 
000120 000207 RTS PC ; 1744 


; Routine Size: 41 words, Routine Base: 


ACSCODE$ + 0620 


; Maximum stack depth per invocation: 10 words 


; 1772 1 


8 


; Routine Size: 
; Maximum stack 


3 1793 
F 1794 


MNP 


1 
1 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - CLR_XBUFFER ( ) 


SSBTTL ‘GLOBAL ROUTINE - CLR_XBUFFER ( )’' 
GLOBAL ROUTINE CLR_XBUFFER : NOVALUE = 


° 
* 


2-Feb-1984 14:47:44 
30-Jan-1984 12:25:09 


VAX-11 Bliss-16 V4.0-579 


seq 0141 


Page 15 | 
DISK $USER2: [MAZURCZYK, SDC ]ZQNA4.BLI;1 (9) | 


cf 
o 
: GLOBAL ROUTINE : CLR_XBUFFER 
DESCRIPTION: 
' This routine initializes transmit buffer to zeros. 
Gee 
BEGIN 
INCR INDEX FROM O TO B_SIZE - 1 DO 
XMIT_BUFFER [ .INDEX ] = 0; 
END; 
-SBTTL CLR.XBUFFER GLOBAL ROUTINE - CLR_XBUFFER ( ) 
CLR. XBUFFER: : 
CLR RO 3 
000000G 1%: CLRB XMIT.BUFFERCRO) 3 
INC RO 3 
007777 CMP RO, 07777 3 
BLE 1% 
RTS PC 3 1775 
8 words, Routine Base: ACSCODE$ + 0742 
depth per invocation: O words 


j 
| 
INDEX 1789 
*#( INDEX) 1790 
INDEX 1789 
; INDEX,« 
| 


oo @s G+ oF © Ge @F Gs GF Ge Ge OF Gs oe GF os GF Ge oF oF 


3 
uw 
Pe hl aol el cee el ell ol ol el ol ol al el 


000000 005000 
000002 105060 
000006 005200 
000010 020027 


000014 003772 
000016 000207 


; Routine Size: 


Mid 
CZQNAAO DEQNA FUNCTIONAL TEST 22-Feb-1984 14:47:44 
GLOBAL ROUTINE - CLR_RBUFFER ( ) 30-Jan-1984 12:25:09 
SSBTTL ‘GLOBAL ROUTINE - CLR_RBUFFER ( )’ 


GLOBAL ROUTINE CLR_RBUFFER : NOVALUE = 


* 
* 


GLOBAL ROUTINE : CLR_RBUFFER 
DESCRIPTION: 


This routine initializes RECEIVE buffer to zeros. 


BEGIN 


INCR INDEX FROM 0 T0 8B SIZE - 100 
RCV_BUFFER [ .INDEX j = 


VAX-11 Bliss-16 V4.0-579 16 
DISK $USER2: [MAZURCZYK. SDC ]ZQNA4. BLI; re 10) 


END; 

-SBTTL CLR.RBUFFER GLOBAL ROUTINE - CLR_RBUFFER ( ) 

CLR. -ROUFFER: : 

000000G 18: CLRB RCV .BUFFERCRO) 

INC RO 
007777 CMP RO, 07777 

BLE 1$ 

RTS PC 
8 words, Routine Base: ACSCODE$ + 0762 


; Maximum stack depth per invocation: 0O words 


1815 1 


SEQ Paneseng 


es os © Ge OF Gs Ge Ge Gs Ge GF Gs Gs Ge Gs Os Gs Ge OF OF 


; Routine Size: 


KPNNNNN EP RE RP RP REP RP RP RP ee ee ee 


005000 


105060 
005200 
020027 
003772 
000207 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - CLR_BUFFERS ( ) 


2-Feb-1984 14:47:44 
30-Jan-1984 12:25:09 


SSBTTL ‘GLOBAL ROUTINE - CLR_BUFFERS ( )' 


GLOBAL ROUTINE CLR_BUFFERS : NOVALUE 


BEGIN 


GLOBAL ROUTINE : CLR_BUFFERS 
DESCRIPTION: 


This routine initializes rev and xmit buffers to zero. 


INCR INDEX FROM O TO BUF_SIZE - 1 DO 
DATA_BUFFER [ .INDEX ] = 0; 


ENO; 


000000G 
017777 


8 words, 


Maximum stack depth per 


1836 1 


1837 


1 


VAX-11 Bliss-16 V4.0-579 Page 17 
DISK $USER2: [MAZURCZYK .SDC JZQNA4 .BLI;1 ate 


1 Ss CLR.BUFFERS GLOBAL ROUTINE - CLR_BUFFERS ( ) 


CLR.BUFFERS: 
CLR 


1$: CLRB DATA . BUFFERCRO) 
INC RO 
CMP RO,@17777 
BLE 1$ 
RTS PC 


Routine Base: ACSCODE$ + 1002 
invocation: O words 


SEQ 0143 


1832 
1833 
1832 


1818 


| 
| 


Bie 


=. 0144 

ZQNA4 CZQNAAO DEQGNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Blies-16 v4.0-579 Pege 16 
v0O1.0 GLOBAL ROUTINE - CLR_DESCRIPTORS ( ) 50-Jan-1984 12:25:09 OISKSUSER2: : (MAZURCZ YK. SOC )ZQNA4 .BLI;1 (12) 
3 tts : SSBTTL ‘GLOBAL ROUTINE - CLR_DESCRIPTORS ( )° 
8 
3 1640 1 GLOBAL ROUTINE CLR_DESCRIPTORS : NOVALUE = 
3 1641 1 
8 1642 1 fee 
s 18643 1 H 
3 sees : ' GLOBAL ROUTINE : CLR_DESCRIPTORS 
3 H 
3 18646 1 ! DESCRIPTION: 
3 1647 1 H 
8 16468 1 : This routine initializes descriptor lists to zero. 
8 1649 1 !-- 
8 1850 1 
3 1651 1 
8 1852 2 BEGIN 
3 18653 2 
3 1854 2 INCR INDEX FROM O TO DESCR_SIZE - 1 DO 
; 1655 2 DESCR_LIST { . INDEX, W_LEN } = 0; 
: 1656 2 
3 1857 1 END; 

-SBTTL CLR.DESCRIPTORS GLOBAL ROUTINE - CLR_DESCRIPTORS ( ) 
000000 005000 CLR.ODESCRIPTORS: : 

CLR RO s INCEX 18654 
000002 005060 000000G 18: CLR = LISTCRO) s *C INDEX) 1855 
000006 062700 000002 ADO @2,R0 3 *, INDEX 1854 
000012 020027 000176 CMP RO, 0176 3; INDEX,« 
000016 003771 BLE 18 
000020 000207 RTS PC $ 1840 
s Routine Size: 9 words, Routine Base: ACSCODES + 1022 
+ Maximum steck depth per invocation: 0 words 
3 1658 1 
8 1859 1 
Fy 1860 1 


<N 
=$ 
~ 
o 


oo e: G+ oF Gs Ge Ge Ge GF Gt Ge Ge Ge Ge Gt Gt Ge Ge GF 
— 
@ 
~ 
° 


000002 005060 
000006 

000012 020027 
000016 003771 
000020 000207 


3 Routine Size: 
; Maximum stack 


1880 
Fy 1881 


= NP 9000 10 Pe ee ee 


1 
1 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - CLR_RDESCR ( ) 


SSBTTL ‘GLOBAL ROUTINE - CLR_RDESCR ( )° 
GLOBAL ROUTINE CLR_RDESCR : NOVALUE = 


> 
° 


GLOBAL ROUTINE : CLR_RDESCR 
DESCRIPTION: 


BEGIN 


INCR INDEX FROM O TO D_SIZE - 1 DO 
RCV_DO_LIST { . INDEX, W_LEN ] = 0; 


END; 

” ha CLR.RDESCR GLOBAL ROUTINE - CLR_RDESCR ( ) 

CLR. RDESCR 

CLR s INDEX 1876 
000000G 1%: CLR REV.O.LISTCRO) 3 *#C INDEX) 1877 
000002 ADO @2,RO0 s *, INDEX 1876 
000076 CMP RO, 076 3 INDEX,« 

BLE 1% 

RTS PC 3 1863 
9 words, Routine Base: ACSCODES + 1044 


depth per invocation: O words 


This routine initializes receive descriptor buffer to zero. 


Cie 
SEQ 0145 


2-Feb-1984 14:47:44  VAX-11 Bliss-16 v4.0-579 Page 19 
30-Jan-1984 12:25:09  ODISKSUSER2:(MAZURCZYK.SOCJZQNA4.B8LI;1 (13) 


—-—~— --- + ---—- 


Die 


4 

ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Blies-16 V4.0-579 ay 20 
v01.0 GLOBAL ROUTINE - CLR_XDESCR ( ) 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK .SDC )ZQNA4.BLI;1 (14) 
: sees : SSBTTL ‘GLOBAL ROUTINE - CLR_XDESCR ( )' 
8 
3 1884 1 GLOBAL ROUTINE CLR_XDESCR : NOVALUE = 
3 1885 1 
2 1886 1 foe 
8 1887 1 $ 
Fy 1888 1 ! GLOBAL ROUTINE : CLR_XDESCR 
3 1689 1 : 
3 1890 1 ! DESCRIPTION: 
F 1691 1 $ 
3 rtf : : This routine initializes transmit descriptor buffer to zero. 
3 1694 1 
3 1895 2 BEGIN 
Fy 1896 2 
3 1897 2 NCR INDEX FROM O TO DO_SIZE - 1 DO 
ry 1698 2 XMIT_D_LIST ({ . INDEX, W_LEN ] = O; 
F 1899 2 
3 1900 1 END; 

-SBTTL CLR.XDESCR GLOBAL ROUTINE - CLR_XDESCR ( ) 
000000 005000 CLR.XDESCR: : 

CLR RO 3s INDEX 1897 
000002 005060 000000G 1%: CLR XMIT.O.LISTCRO) s *#C INDEX) 1898 
000006 062700 000002 ADD @2,R0 : *, INDEX 1897 
000012 020027 000076 CMP RO, 076 3s INDEX,« 
000016 003771 BLE 1% 
000020 000207 RTS PC 3 1884 
s Routine Size: 9 words, Routine Bese: ACSCODES + 1066 


; Maximum steck depth per invocation: O words 


3 1901 1 
3 1902 1 


i sascosaecieeseenepreeemeiaeieeh mika cai aia tatiana 


Ele 


= 0147 

ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 21 
v0O1.0 GLOBAL ROUTINE - CLR_SETUP_BUFFER ( ) 30-Jan-1984 12:25:09 DISK$SUSER2: : (MAZURCZYK. SOC ]ZQNA4 .BLI;1 (15) 
3 psy : SSBTTL ‘GLOBAL ROUTINE - CLR_SETUP_BUFFER ( )’ 
3 
3 1905 1 GLOBAL ROUTINE CLR_SETUP_BUFFER : NOVALUE = 
3 1906 1 
3 1907 1 See 
3 1908 1 : 
$ to ; : GLOBAL ROUTINE : CLR_SETUP _BUFFER 
Q — 
3 1911 1 ! DESCRIPTION: 
Fy 1912 1 H 
Fy 1913 1 i This routine clears setup mode buffer. 
Fy 1914 1 !-- 
3 1915 1 
3 1916 1 
3 1917 2 BEGIN 
8 1918 2 
Fy 1919 2 INCR INDEX FROM O TO SETUB_ — - 1 00 
8 1920 2 SETUP _BUFFER [ .INDEX ] = 0; 
3 1921 2 
F 1922 1 ENO; 

-SBTTL CLR.SETUP.BUFFER GLOBAL ROUTINE - CLR_SETUP_BUFFER ( ) 
000000 005000 CLR. SETUP. tetas T 

CLR RO 3s INDEX 1919 
000002 005060 000000G 1%: CLR SETUP .BUFFER(RO) s *C INDEX) 1920 
000006 062700 000002 ADD @2,R0 3; *, INDEX 1919 
000012 020027 000776 CMP RO, 0776 3; INDEX,« 
000016 003771 BLE 1% 
000020 000207 RTS PC 3 1905 
; Routine Size: 9 words, Routine Base: ACSCODE$ + 1110 


; Maximum stack depth per invocation: 0O words 


> 1923 1 


ea ee ee 


£ 
oe 
RP NUWWUWUNNNNNNNNNNNRNNNNNNNNE PPR RRR Re Re eee eee 


013700 


062700 
011046 
011637 


Fie 


SEQ 0148 | 
CZQNAAO DEQGNA FUNCTIONAL TEST 22-Feb-1984 14:47:44 VAX-11 Blies-16 V4.0-579 Page 22 
GLOBAL ROUTINE - CHK_CSR_STATUS ( P1, P2 ) 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK . SDC JZQNA4 .BLI;1 (16) | 
@SBTTL ‘GLOBAL ROUTINE - CHK_CSR_STATUS ( P1, P2 )’ | 
GLOBAL ROUTINE CHK_CSR_STATUS ( P1, P2 ) : NOVALUE = 
See 
¢ 
: GLOBAL ROUTINE : CHK _CSR_STATUS | 
DESCRIPTION: 
This routine checks CSR stetus words for expected status. | 
! INPUT PARAMETERS: 
a 
: Pl-e ted CSR status 
: P2 - CSR mask 
BEGIN 
fee 
: SAVE CSR, RESET TRANSMIT AND RECEIVE REQUEST BITS IN THE CSR 
CSR_WORD = GET_BIT [ CSR, ALL_BITS }; 
PUT_BIT [ CSR, RI, ONE }; 
PUT_BIT { CSR, XI, ONE }; 
See 
$ MASK OUT DON'T CARE BITS IN THE CSR REGISTER AND COMPARE TO EXPECTED 
: CSR STATUS. IF STATUS NOT EQUAL THEN PRINT ‘BAD CSR STATUS WORD’ 
TEMP1 = .CSR_WORD AND .P2; 
IF .TEMP1 NEQU .P1 
THEN 
BEGIN 
PRINTS ( MSG12. .TEMP1. .P1 ); 
ERRDF (€ 0001, E0001, ERRORSREPORT ); 
DODU ( DEQGNA_NO ); 
3 
END; 
PF 
-SBTTL CHK.CSR.STATUS GLOBAL ROUTINE - CHK_CSR_STATUS ( Pi, P2 ) 
000000G CHK ..CSR.STATUS:: 
MOV G.ADR,RO 3 1948 
000016 ADO #16,RO 
MOV CRO), -C SP) 3: *,TMP.LOCATION 
000000G MOV (SP),CSR.WORD 


fr a om 


Gle 


_, 0149 
ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 23 
v01.0 GLOBAL ROUTINE - CHK_CSR_STATUS ( P1, P2 ) 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK. SDC JZQNA4 ..BLI;1 (16) 
000016 052710 100200 BIS #100200, (RO) F 1951 
000022 011637 000000G MOV (SP), TEMP1 ; CSR.WORD,« 1958 
000026 016600 000004 MOV 4(SP),RO ; P2,4 
000032 005100 COM RO 
000034 040037 000000G BIC RO, TEMP1 
000040 023766 000000G 000006 CMP TEMP1,6(CSP) ; *,P1 1960 
000046 001424 BEG 1$ 
000050 016646 000006 MOV 6(SP),-(SP) ; Pl, 1963 
000054 013746 000000G MOV TEMP1, -CSP) 
000060 012746 000000G MOV #MSG12,-(SP) 
000064 012746 000003 MOV @3,-(SP) 
000070 010600 MOV SP,RO ; SP,« 
000072 104414 TRAP 14 
000074 104455 TRAP 55 3 1964 
000076 000001 . WORD 1 
000100 000000G «WORD €0001 
000102 000000’ -WORD ERRORSREPORT 
000104 012700 000000G MOV @DEQNA .NO,RO 3 1965 
000110 104451 TRAP 51 
000112 104444 TRAP a4 
000114 062706 000010 ADD #10,SP 3 1962 
000120 005726 1%: TST (SP )+ 8 1926 
000122 000207 RTS PC 
; Routine Size: 42 words, Routine Base: ACSCODES$ + 1132 
; Maximum stack depth per invocation: 7 words 
F 1969 1 
F 1970 1 


<T 
°o 
rary 


BEND 10 10100 10110 1010. 10.110 10.10. 10: 10: © G8 68 G8 90.90.90 90.10.10. 90 90 10 0 P00. 10 ee ee 


Hie 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44  VAX-11 Bliss-16 V4.0-579 


SSBTTL ‘GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 )' 
GLOBAL ROUTINE CHK_XMIT_STATUS ( P1, P2 ) : NOVALUE = 


7 
* 


GLOBAL ROUTINE : CHK _XMIT_STATUS 
DESCRIPTION: 

This routine checks transmit status words for expected status. 
INPUT PARAMETERS: 


Pl - XMIT flag word 
P2 - expected XMIT status word 1 


BEGIN 


* 
MASK OUT DON’T CARE BITS IN THE XMIT FLAG WORD AND COMPARE TO EXPECTED 
wr STATUS. IF STATUS NOT EQUAL THEN PRINT ‘BAD XMIT FLAG WORD 


TEMP2 = .XMIT_D_LIST [ FLGWD ] AND XFLG_MASK; 
IF_ .TEMP2 NEQU .P1 
THEN 
BEGIN 
PRINTB ( MSG13, .GET_ADR [ CSR_ALL _"* -TEMP2 ); 
ERROF ( 0802, =k “ERRORSREPORT ); 


DOCLN; *y 
END; 


° 
* 


MASK OUT DON’T CARE BITS IN THE XMIT STATUS WO1 AND COMPARE TO EXPECTED 
XMIT STATUS WO1. IF STATUS NOT EQUAL THEN PRINT ‘BAD XMIT STATUS WORD 1’ 


Fe Let { STWO1 ) GTRU ZERO 
a = .XMIT_O_LIST ({ STWO1 ] AND XWD1_MASK 
TEMPS = .XMIT_D_LIST [{ STWO1 ] AND X1_MASK; 
IF_.TEMP3S NEQU .P2 
THEN 
BEGIN 


=, 0150 
GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 ) 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK . SDC ]ZQNA4. BLI; .— 


24 
(17) 


OAL a a ET tA OS 


w 
~ 
KPUMUNRNVNNVNRNNNANRNNNNNVNNANNNWUWWw 


024646 
013737 


062706 
013700 


Tie 
CZQNAAO_DEQNA FUNCTIONAL TEST 


PRINTS ( MSG14, .GET_ADR [ CSR_ALL ], .TEMPS ); 
ERROF (€ 0803, E0001, ERRORSREPORT ); 
DODU (€ DEQNA_NO ); 


! CHECK THE TOR VALUE IN THE XMIT STATUS WORD 2 


!IF_ .XMIT_O_LIST ( STWO1 ) EQLU ZERO 
THEN 


TERA = XHIT_D LIST { STWO2 } AND XWD2_MASK; 
 ORINTB ( MSG_2TOR, .HWP_TABLE [ ADDR ], .TEMP4 ) 
* 2 — EQ@LU ZERO 
- € MSG_3TOR, .HWP_TABLE [ ADOR J], .TEMP4 ) 


PRINTB ( MSG_4TOR, .HWP_TABLE [ ADDR ], .TEMP4 ); 


(Th ce ce te te tere teste se sera tase sare 


SBTTL CHK.XMIT.STATUS GLOBAL ROUTINE - CHK_XMIT_STATUS ( Pi, P2 ) 


END; 
ND; 
CHK .XMIT.STATUS:: 

CMP -(SP),-CSP) 
000000G 000000G MOV XMIT.O.LIST, TEMP2] 
037777 000000G BIC 37777, TEMP2 
000000G 000010 — he .10(SP) 
000000G MOV TEMP2, -CSP) 

MOV GET. ADR,2(SP) 
000016 000002 ADD #16,2CSP) 
000002 MOV 2CSP), -CSP) 
000000G MOV 13,- ) 
000003 MOV @3,-C(SP) 

MOV ° 

TRAP 14 

TRAP 55 

-WORD 1442 

-WORD €E0001 

-WORD ERRORSREPORT 
000000G MOV @DEQNA.NO,RO 

TRAP 51 

TRAP 84 
000010 ADD #10,SP 
000010G 1%: MOV XMIT.O.LIST+10,RO 


22-Feb-1984 14:47:44 


VAX-11 Bliss-16 V4.0-579 
GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 ) 30-Jan-1984 12:25:09 


P 
DISK $USER2: [MAZURCZYK.SDC ]ZQNA4 .BLI; Mes 


—— € MSG_1TOR, .HWP_TABLE [ ADDR ], .ZERO ) ! THERE IS NO TOR 


*, TMP .LOCATION 
«, TMP .LOCATION 
TMP .LOCATION, « 


SEQ 0151 


1973 
1999 


2001 
2004 


2s 
(17) 


3 Routine Size: 
; Maximum stack 


000000G 
020017 000000G 


000000G 
077777 000000G 
000000G 000006 


000000G 


000010 
000207 
83 words, 


2051 1 
2052 1 


depth per invocation: 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 ) 


2s: 
3$: 


4$: 


RTS 


Jie 


2-Feb-1984 14:47:44 
30-Jan-1984 12:25:09 


es 
RO, TEMPS 
es 


RO, TEMPS 
077777, TEMPS 
TEMP3 ,6( SP) 


E0001 

ERROR SREPORT 
@DEQNA .NO,RO 
51 

aa 


#10,SP 
(SP)+,CSP)+ 
PC 


Routine a ACSCODE$ + 1256 


8 wor 


VAX-11 Bliss-16 V4.0-579 


ee ee ef oF 


*,P2 


*, TMP .LOCATION 
*#, TMP ..LOCATION 
TMP .LOCATION, + 


SP,* 


SEQ 0152 
Page 
DISK $USER2: [MAZURCZYK.SOC )ZQNA4.BLI;1 


(17) 


WUNNVNANRNNNNANNANNNWUWAWUAWNNNRNNRNNNNN RP RP RP RP Re RP RP Re RP RP Ree RR eee ee 


Kile 


CZQNAAO DEQNA FUNCTIONAL TEST 


22-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 


SEQ — 


27 
GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, P2 ) 30-Jan-1984 12:25:09 DISK $USER2 : [MAZURCZYK. SDC )ZQNA4. Bil; s 18) 


SSBTTL ‘GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, P2 )' 
GLOBAL ROUTINE CHK_RCV_STATUS ( P1, P2 ) : NOVALUE = 


* 
* 


GLOBAL ROUTINE : CHK _RCV_STATUS 
DESCRIPTION: 

This routine checks receive status words for expected status. 
INPUT PARAMETERS: 


Pl - expected RCV flag word 
P2 - expected RCV status word 1 


@ 
m 
o 
Lom] 
z 


° 
* 


MASK OUT DON'T CARE BITS IN THE RCV FLAG WORD AND COMPARE TO EXPECTED 
tena STATUS. IF STATUS NOT EQUAL THEN PRINT ‘BAD RCV FLAG WORD 


TEMP1 = .RCV_D_LIST [ FLGWO }] AND RFLG_MASK; 
IF _ .TEMP1 NEQU .P1 
THEN 
BEGIN 
are. MSG1S., .GET_ADR ( CSR_ALL ], .TEMP1 ); ! BAD RCV FLAG WD 


0804, E0001, ERRORSREPORT ); 
DODU ( DEQNA_NO ); 


See 
$ MASK OUT DON’T CARE BITS IN THE RCV STATUS WD1 AND COMPARE TO EXPECTED 
: RCV STATUS WD1. IF STATUS NOT EQUAL THEN PRINT ‘BAD RCV STATUS WORD 1' 
Fe eet { STWO1 ) GTRU ZERO 

o— = .RCV_O_LIST ({ STWO1 ) AND R2_MASK 

TEMP2 = .RCV_D_LIST [{ STWD1 ) AND R1_MASK; 

IF .TEMP2 NEQU .P2 

THEN 


BEGIN 
PRINTB ( MSG16, .GET_ADR [ CSR_ALL }, .TEMP2 ); ! BAD RCV STATUS WD 1 


eee 


Lie 


SEQ 0154 


ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 28 | 
vO1.6 GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, P2 ) 30-Jan-1984 12:25:09 — DISK$USER2:[MAZURCZYK.SOC]ZQNA4.BLI;1 (18) | 
: 2106 3 ERROF ( 0805, E0001, ERRORSREPORT ); | 
; 2107 3 DODU ( DEQNA_NO ); 
; 2108 3 DOCLN; 
; 2109 2 END; 
; 2110 2 | 
;  2ill 1 END; 
.SBTTL CHK.RCV.STATUS GLOBAL ROUTINE - CHK RCV_STATUS ( P1, P2 ) 
000000 024646 CHK .RCV. STATUS: 
CMP -(SP),-CSP) : 2055 
013737 000000G 0000006 MOV RCV.D.LIST, TEMP1 : 2080 
000010 042737 037777 000000G BIC 037777, TEMP1 
000016 023766 000000G 000010 CMP TEMP1, 10(SP) ; *,P1 2082 
000024 001432 BEQ $ 
000026 013746 0.1000G MOV TEMP1, -(SP) : 2085 
000032 013766 000000G 000002 MOV GET.ADR,2¢SP) ; *,TMP.LOCATION 
000040 062766 000016 000002 ADD #16 ,2(SP) ; *, TMP.LOCATION 
000046 016646 000002 MOV 2(SP), -(SP) ; TMP.LOCATION, « 
000052 012746 0000006 MOV oMSG15, -(SP) 
000056 012746 000003 MOV @3,-(SP) 
000062 010600 MOV : ; SP,« 
000064 104414 TRAP = 14 
000066 104455 TRAP ss 55 : 2086 
000070 001444 .WORD 1444 
000072 “WORD E0001 
000074 ‘ “WORD  ERRORSREPORT 
000076 012700 000000G MOV @DEGNA .NO, RO : 2087 
000102 104451 TRAP = 51 
000104 TRAP = 44 
000106 062706 000010 ADD #10, SP : 2084 
000112 013700 000010G 1s: MOV RCV.0.LIST+10,RO ; 2096 
000116 001406 BEQ 2s 
000120 010037 0000006 MOV RO, TEMP2 : 2098 
000124 042737 003760 000000G BIC 03760, TEMP2 
000132 000405 aR 3$ : 2096 
000134 010037 000000G 2$: MOV RO, TEMP2 : 2100 
000140 042737 077777 000000G BIC 677777, TEMP2 
000146 023766 000000G 000006 3%: CMP TEMP2,6(SP) : *,P2 2102 
000154 001432 BEQ 4$ 
000156 013746 000000G MOV TEMP2, -(SP) : 2105 
000162 013766 000000G 000004 MOV GET.ADR.4(SP) ; *, TMP.LOCATION 
000170 062766 000016 000004 ADD 016,4(SP) ; *, TMP..LOCATION 
000176 016646 000004 MOV 4(SP),-(SP) ; TMP.LOCATION, « 
2 012746 000000G MOV @MSG16, -(SP) 
012746 000003 MOV 3, -( 
000212 010600 ; ; SP,« 
000214 104414 TRAP 1. 
000216 104455 TRAP = 55 : 2106 
000 001445 -WORD 1445 
000222 “WORD £0001 
000224 000000’ “WORD ERRORSREPORT 
000226 012700 0000006 MOV @DEQNA.NO,RO i 2107 


Mie 


SEQ 0155 

ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 29 
voO1.0 GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, P2 ) 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK .SDC J)ZQNA4.BLI;1 (18) 
000232 104451 TRAP 51 

000234 104444 TRAP 44 

000236 062706 000010 ADD #10,SP 3 2104 
000242 022626 4$: CMP CSP)+,(SP)-+ 3 2055 
000244 000207 RTS PC 

; Routine Size: 83 words, Routine Base: ACSCODE$ + 1524 


; Maximum steck depth per invocation: 68 words 


8 2ii2 i 


ot 


KPNNWUWUWWNNNNNWAUWATNRNR NNN NNNNNNNNN RRP RRR RRR Rr rrr 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - COMPARE_PACKETS ( ) 


SEQ. 0156 
2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 30 | 
30-Jan-1984 12:25:09 DISKSUSER2:(MAZURCZYK.SDC)ZQNA4.BLI;1 (19) 


SSBTTL ‘GLOBAL ROUTINE - COMPARE _PACKETS ( )' 


* 
* 


DESCRIPTION: 


BEGIN 


See 


GLOBAL ROUTINE : COMPARE _PACKETS 


| 
| 
GLOBAL ROUTINE COMPARE PACKETS : NOVALUE = 


This routine compares contents of transmit packet to the contents 
of receive packet and prints an error message if the don't compare. 


! GET RECEIVE BYTE LENGTH ( RBL ) FROM RCV DISCRIPTOR neo COMPUTE WORD 
! LENGTH. THEN COMPARE ACTUAL TO EXPECTED RCV WORD LENGTH 


— 

TEMPS = O; 

IF .XMIT_O_LIST ({ SBIT ] EQLU ZERO 
THEN 


TEMPS = .RCV_D_LIST ( STWD1 ] AND RHL_MASK; 
TEMPS = .TEMPS + ( .RLV_O_LIST ( STWD2 ] ANDO RLL_MASK ); 


IF _.TEMPS NEQU .RBUF_LENGTH 
THEN 


0805, £0001, ERRORSREPORT ) 


DODU € DEQNA_NO ); 
DOCLN; 
END; 


INCR INDEX FROM O TO . TEMPS - 1 


00 
* ea Deen { . INDEX ] NEQU .RCV_BUFFER [ .INDEX } 


BEGIN 
PRINTS € OBM45, .XMIT_BUFFER [ 


-INDEX ], .RCV_BUFFER [ .INDEX ] ); 


ERROF ( 0806, 1: a ERRORSREPORT ); 
: 


BEGIN 
PRINTB € MSG17, .GET_ADR [ CSR_ALL 2° - TEMPS ); ! BAD RBL CRCV LENGTH) 
ERROF ( 
. SBTTL 
COMPARE .PACKETS: : 


COMPARE .PACKETS GLOBAL ROUTINE - COMPARE_PACKETS ( ) 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL ROUTINE - COMPARE PACKETS ( ) 


18%; 


000010 
4$: 
S$: 


B48 


FPEELEETE 


si 


Bis 
2-Feb-1984 14:47:44 
30-Jan-1984 12:25:09 
R1, $SAVE) 
-(SP) 
TEMPS 
+ ee XMIT.O.LIST+2? 


Rev. O.LIST+10, TEMPS 
0174377, TEMPS 


RO 
RCV.O.LIST+12,R0 
RO, TEMPS 

Ree aT Aaa 


Ss 
id -BUFFER(R1), RCV. BUFFER(R1) 


-(SP) 

RCV .BUFFER(R1),( SP) 

-(SP) 

XMIT .BUFFER(R1),( SP) 
SP) 

@3,-C(SP) 


O 
N 


VAX-11 Blies-16 V4.0-579 


3 

3 *,TMP.LOCATION 
s #,TMP.LOCATION 
; TMP.LOCATION,« 


s SP, 


3 
3s INDEX 
3s #( INDEX), «( INDEX) 


a 
° *C INDEX), 
s *CINDEX),« 


s SP, 


= 
DISK $USER2: [MAZURCZYK . SOC JZQNA4 . BLT; ‘wer 


31 
(*») 


2115 


2134 
21% 


2138 
2140 


2142 
2145 


2146 


2147 


2144 
2151 


215¢ 
2155 


2156 


2157 


2154 
2151 


2115 


Ci3 


SEQ 0158 
ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 v4.0-579 Page 
v0O1.0 GLOBAL ROUTINE - COMPARE PACKETS ( ) 30-Jan-1984 12:25:09 OISK $SUSER2: [MAZURCZ1K . SDC )ZQNA4.BLI;1 €19) 
000250 000207 RTS PC 
; Routine Size: 85 words, Routine Base: ACSCODES + 1772 


3; Maximum stack depth per invocation: 10 words 


3 2162 1 
3 2163 1 


3; Routine Size: 
; Maxiaum stack depth per invocation: 0O words 


~ 
~ 
@ 
ee 
MPP POIAIN 0 e ee e e 


2195 1 


CZQNAAO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - SET_RDESCR_LIST ( P1, P2) 


D13 


2-Feb-1984 14:47:44 
30-Jan-1984 12:25:09 


SSBTTL ‘GLOBAL ROUTINE - SET_RDESCR LIST ( P1, P2)’ 
GLOBAL ROUTINE SET_RDESCR_LIST ( P1, P2 ) : NOVALUE = 


° 
a 


DESCRIPTION: 


INPUT PARAMET 


BEGIN 
RCv_O_LIST [ FLGWO } * NEW; 
RCV_O_LIST [( OBITS = ,P2; 
RCV_O_LIST f LOADR } = RCV_BUFFER; 

_O_LIST { TWOL s 

RCV_O_LIST ( STWD1 ) = 0; 
RCV_O_LIST { STW2 ) = O; 
RCV_O_LIST { OLINK ) = NEW; 
RCV_O_LIST { BSTAT ) = €; 

END; 


0000 10G 
000012G 
100000 000014G 
020000 0000166 


23 words, 


GLOBAL ROUTINE : 


ERS: 


SET_RDESCR_LIST 


-SBTTL SET.RDESCR.LIST GLOBAL ROUTINE - SET_RDESCR_LIST ( Pi, P2) 


This routine initializes receive descriptor list. 


Pl - expected Ethernet packet length in words 
P2 - expected RCV Descriptor List settings 


SET.ROESCR. eek 


Routine Base: 


#-100000,,.RCV.D0.LIST 
2(SP), RCV.O.LIST+2 
@RCV .BUFFER .RCV.O.LIST+4 
4(SP),RCV.0.LIST +6 


#20000, »RCV.D.LIST+16 


ACSCODE$ + 2244 


VAX-11 Blies-16 V4.0-579 


—, 0159 


Page 33 
DISK $USER2:(MAZURCZYK.SDC]ZQNA4.BLI;1 (20) 


P2,¢ 
Pi, 


~ 
tv 
i 
w 
OIRO 90 1010 10 0000 ee ee 


000000 012737 


Routine Size: 


E135 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 
GLOBAL ROUTINE - SET_XDESCR_LIST ( P1, P2 ) 30-Jan-1984 12:25:09 
SSBTTL ‘GLOBAL ROUTINE - SET_XDESCR LIST ( P1, P2 )' 


GLOBAL ROUTINE SET_XDESCR LIST ( P1, P2 ) : NOVALUE = 


° 
- 


GLOBAL ROUTINE : SET_XDESCR_LIST 
DESCRIPTION: 

This routine initializes transmit descriptor list. 
INPUT PARAMETERS: 


Pl - expected Ethernet packet length in words 
P2 - expected XMIT Descriptor List settings 


VAX-11 Bliss-16 V4.0-579 


SEQ 0160 


Page 34 
DISK$USER2:(MAZURCZYK.SDC]ZQNA4.BLi;1 (21) 


TTL. SET.XDESCR.LIST GLOBAL ROUTINE - SET_XDESCR_LIST ( P1, P2 ) 


BEGIN 
XMIT_O_LIST ( FLGWD ) = NEWB; 
XMIT_D_LIST { OBITS ) = .P2; 
XMIT_D_LIST ( LOADR ) = XMIT_BUFFER; 
XMIT_O_LIST [ TWwOL j) = 1; 
XMIT_D_LIST ( STWO1 ) = O; 
XMIT_D_LIST ( STWO2 ) = 0; 
XMIT_O_LIST [ INK ) = NEWB; 
XMIT_O_LIST ({ BSTAT } = E; 
END; 
. 88 
100000 000000G SET.XDESCR.LIST:: 
MOV #-100000, XMIT.D.LIST 
000002 000002G MOV 2(SP),XMIT.O.LIST+2 
000000G 000004G MOV @XMIT .BUFFER,XMIT.O.LIST+4 
000004 000006G MOV 4(SP),XMIT.O.LIST+6 
000010G CLR XMIT.O.LIST+10 
000012G CLR XMIT.O.LIST+12 
100000 000014G MOV #-100000, XMIT.D.LIST+14 
020000 000016G MOV #20000 ,XMIT.O.LIST+16 
RTS PC 
23 words, Routine Base: ACSCODES + 2322 


Maximum steck depth per invocetion: 0 words 


2227 1 


P2,e 
Pl1,«¢ 


ee 


<n 
_ 


DOPOD G8 8 G8 68 8 GED. 10.10.9090: 90.90. 910.10. 00 10.10 © G8 G0 Gd 8 G8 G8 0 90 0.0 be ee ee ee ee ee 


rid 


CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 
GLOBAL ROUTINE - WALKING_BIT ( P1, P2) 30-Jan-1984 12:25:09 


SSBTTL ‘GLOBAL ROUTINE - WALKING_BIT ( P1, P2)’ 
GLOBAL ROUTINE WALKING _BIT ( P1, P2) : NOVALUE = 


* 
* 


GLOBAL ROUTINE : WALKING _BIT 
DESCRIPTION: 

This routine sets a bit in specified bit position. 
INPUT PARAMETERS: 


Pl - bit ( O orl ) 
P2 - bit position from base address 


BEGIN 


TBYTE1 = #8'11111110'; 
TBYTE] = #8'11111111'; 
3 
SELECTONE .P2 OF 
SET 
{ 0T0 7): 
TEMP1 = O; 
{ 8 TO 47 }: 
TEMP1 = .P2 / 8; 
TES; 


TEMP2 = .P2 MOD 8; 
INCR INDEX FROM O TO .TEMP1 DO 
BEGIN 


IF_.INDEX EQLU ZERO 
THEN 


EXITLOOP 
XMIT _BUFFER t -INDEX } = .TBYTE2; 


PRINTB ( OBM4S, .XMIT_BUFFER [ .INDEX ], .RCV_BUFFER [ .INDEX } 3 


END; 
XMIT_BUFFER [ .TEMP1 + 1) = .TBYTEL * ( .TEMP2 ); 


" in, oe 


— 
DISK $USER2: [MAZURCZYK . SDC ]ZQNA4 .BLI; eet 


VAX-11 Bliss-16 V4.0-579 


35 | 
(22) 


fu 
tj 
@ 
fe 
fro 


013701 


G13 


SEQ 0162 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 36 | 
GLOBAL ROUTINE - WALKING_BIT ( P1, P2) 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK .SDC )ZQNA4.BLI;1 (22) | 
PRINTB ( DBM4S, .XMIT_BUFFER [ .TEMP1 + 1 J], .RCV_BUFFER [ .TEMP1 + 1] ); 
END; | 
-SBTTL WALKING.BIT GLOBAL ROUTINE - WALKING_BIT ( P1, P2) 
000000G WALKING.BIT:: 
JSR R1, $SAVE] 3 2230 
000012 an athe 3; Pl 2249 
000001 000000G MOvB 1, TBYTE1L 3 2252 
CLRB TBYTE2 3 2253 
BR 2s 3 2249 
000376 000000G 1%: MOVB 6376, TBYTE1 3 2257 
000377 000000G MOVB 0377, TBYTE2] : 2258 
000010 2s: MOV 10(SP),R2 3; P2,« 2261 
BLT 33 3 2263 
000007 CMP R2,07 
BGT 3% 
000000G CLR TEMP1 3 2264 
BR 43 3 2261 
000010 3%: CMP R2,@10 F 2265 
BLT 4$ 
000057 CMP R2,057 
BGT as 
MOV R2,R1 F 2266 
SxT RO 
000010 OIV #10,RO 
MOV RO, TEMP1 
4%: MOV 2,R 3 2269 
SXT 
000010 OIV #10,RO0 
000000G MOV R1, TEMP2] 
000000G MOV TEMP1,R2 F 2271 
CLR R1 3s INDEX 
BR 6% 
5%: TST Ri ; INDEX 2273 
BEQ 7% 3 2275 
000000G 000000G ty TBYTE2, XMIT.BUFFERC(R1) 3 *,*C INDEX) = 
L - 3 
000000G ty 0 leat ; *CINDEX),« 
000000G MOVB XMIT .BUFFERCR1), (SP) 3; *#CINDEX),« 
000000G MOV @086M45,-(SP) 
000003 MOV @3,-(SP) 
MOV SP ,RO ; SP, 
TRAP 
000010 ADD 
INC 3s INDEX 2271 
6%: CMP R1,R2 3; INDEX,« 
BLE S$ 
000000G 78: MOV TEMP1,R1 3 2280 


14 
#10,SP H 2272 
R1 


2 eee 


ina > 


Hi 3 


SEQ 0163 
ZQNA4 CZQNAAO DEQGNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 Page 37 
v0O1.0 GLOBAL ROUTINE - WALKING _BIT ( P1, P2) 30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK .SDC )ZQNA4.BLI;1 (22) 
000220 005000 CLR RO 
000222 153700 000000G BISB TBYTE1,RO 
000226 072037 000000G ASH TEMP2 ,RO 
000232 110061 000001G MOVB RO, XMIT.BUFFER+1(R1) 
000236 005046 CLR -(SP) F 2282 
000240 116116 000001G MOVB RCV.BUFFER+1(R1),(SP) 
000244 005046 CLR -C(SP) 
000246 110016 MOVB RO,(SP) 
000250 012746 000000G MOV @08M45, -(SP) 
000254 012746 000003 MOV @3,-(SP) 
000260 010600 MOV SP RO : SP,« 
000262 104414 TRAP 14 
000264 062706 000010 ADD #10,SP 3 2247 
000270 000207 RTS PC 3 2230 
; Routine Size: 93 words, Routine Base: ACSCODE$ + 2400 


; Maximum stack depth per invocation: 9 words 


; 2285 1 


KP NNWUWWNNNNWWWNNWWURRNRRNNNNNNNN RP RP RP RP Re RP RP RP Re RR RRR ere RP 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL ROUTINE - WRT_STATION_ADR ( P1, P2 ) 


* 
* 


GLOBAL ROUTINE : 
DESCRIPTION: 


INPUT PARAMETERS: 


BEGIN 
TEMPS = 8; 
COUNTER = 0; 
TEMP1 = ( .P2-1 ) # 6; 
IF .P2 EQLU ZERO 

THEN 

TEMP1 = .P2; 

SELECTONE .P1 OF 

SET 

{ 0T0 7): 


TEMP2 = 0; 


TEMP2 = 40; 
Pl = .Pl + 64; 
END; 


TES; 


= FROM .P1 TO .P1 + .TEMP2 BY .TEMPS DO 
XMIT_BUFFER [ . INDEX } = .TARGET_ADR [ .COUNTER + .TEMP1 ]; 


COUNTER = .COUNTER « 1; 
END 
END; 


WRT _STATION_ADR 


This routine sets a bit in specified bit position. 


PRINTB ( OBM45, .XMIT_BUFFER [ .INDEX ], .RCV_BUFFER [ .INDEX } ); 
: 


22-Feb-1984 14:47:44 
30-Jan-1984 12:25:09 


SSBTTL ‘GLOBAL ROUTINE - WRT_STATION_ADR ( Pl, P2 )' 
GLOBAL ROUTINE WRT_STATION_ADR ( P1, P2 ): NOVALUE 


VAX-11 Bliss-16 V4.0-579 Page 38 
DISK$USER2: [MAZURCZYK.SDCJZQNA4.BLI;1 (23) 


Pl - Ethernet Station Address index (1:14) in Station Address RAM 
P2 - Ethernet Station Address index ( 0:19 ) in the TARGET_ADR table 


SEQ 0164 


000000 004157 


000004 012737 
000012 005037 


3; Routine Size: 


; Maximum stack depth per invocation: 10 words 


J13 


~, —y 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 39 | 
GLOBAL ROUTINE - WRT_STATION_ADR ( Pi, Pe2 ) 30-Jan-1984 12:25:09 DISK$USER2: (MAZURCZYK. SOC JZQNA4 .BLI; 3 Oe 33) | 
. SBTTL Spy STATION.ADR GLOBAL ROUTINE - WRT_STATION_ADR ( P1, P2 ) } 
000000G WRT. STATION. _s 
JSR » $SAVE3 3 2288 
000010 000000G MOV it » TEMPS 3 2307 
000000G CLR COUNTER Fy 2308 
000012 MOV 12(SP),RO ; P2,* 2309 
MOV RO,R1 
DEC RL 
000006 MUL @6,R1 
000000G MOV R1, TEMP1 
TST RO Fy 2311 
BNE 1$ 
000000G MOV RO, TEMP1 3 2313 
000014 1$: MOV 14(SP),RO ; Pl,* 2315 
BLT 2s F 2317 
000007 CMP RO, 7 
BGT es 
000000G CLR TEMP2 F} 2319 
000001 000000G MOV #1, TEMPS 3 2 
BR 3$ F 2315 
000010 2s: CMP RO,@10 F 2322 
BLT 3¢ 
000016 CMP RO, 016 
BGT 3% 
000050 000000G MOV #50, TEMP2 3 2324 
000100 000014 ADD #100,14(SP) ; *,P1 2325 
000014 3%: MOV 14(SP),Re2 ; Pl,« 2329 
000000G ADO TEMP2 ,R2 
000000G MOV TEMPS ,R3 
000014 — ae ; P1, INDEX 
000000G 4%: MOV COUNTER ,RO F 2331 
000000G ADD TEMP1,RO 
000000G 000000G MOVB TARGET .ADRCRO),XMIT.BUFFERC(R1) ; *,*#C INDEX) 
000000G INC COUNTER 3 2332 
CLR -(SP) F 2333 
000000G ary LP EN aS COP 3; *#CINDEX),« 
000000G MOVB XMIT.BUFFERC(R1),(SP) 3s *CINDEX),« 
000000G MOV #0845, -(SP) 
000003 MOV @3,-C(SP) 
MOV SP ,RO 3 SP ,* 
TRAP 14 
000010 ADD #10,SP 3 2330 
ADD R3,R1 3: *, INDEX 2329 
S$: CMP R1,R2 3; INDEX,« 
BLE 4$ 
79 words, Routine Base: ACSCODE$ + 2672 


RTS PC ; 2288 


ee re ere 


of 


ee @e os Ge Gs Ge Ge Ge Ge Ge Gs Ge Ge Gt Ge Ge Gs Ge Ge Gs GF Ge GF Ge Ge Ge GF Gt Ge Ge Ge Gt Gt Gt Ge GF OF 
tw 
¥ 

KPNWWWWIR NNN NRNNNNNN EPR RP eR Re RP RP Re Re Re RR eRe ee 


CZQNAAO DEQNA FUNCTIONAL TEST 


GLOBAL ROUTINE - XMIT_AND_RCV_PACKET 


K13 


22-Feb-1984 14:47:44 VAX-11 Bliss-16 V4.0-579 


SSBTTL ‘GLOBAL ROUTINE - XMIT_AND_RCV_PACKET ° 
GLOBAL ROUTINE XMIT_AND_RCV_PACKET 


° 
° 


GLOBAL ROUTINE : 
DESCRIPTION: 


INPUT PARAMETERS: 


BEGIN 
IOP_TABLE [ XLO_ 
IOP_TABLE [ XHI_ 
-IOP_TABLE [ RLO_ 
-IOP_TABLE [ RHI_ 


DELAY ( 300 ); 


: NOVALUE = 


XMIT_AND_RCV_PACKET 


IF GET_BIT ( CSR, RI } 
THEN 


BEGIN 


XMIT_D 
0; 


NEQU ONE 


This routine initiates transmit and receive operations. 


LIST; 


RCV_D_LIST; 
0; 


ERRDF ( 0801, E0001, ERRORSREPORT ); 
QNA_NO ); 


OOOU ( DE 
DOCLN; 
END; 
END; 


1%: 


2s: 


- SBTTL ~+ - AND. RCV.PACKET GLOBAL ROUTINE - XMIT_AND_RCV_PACKET 
XMIT.AND. a ws * 


Ri, *¢SP) 
-(§P), -(SP) 
@xXMIT.DO.LIST,@IOP. TABLE +10 
SIOP . TABLE+12 
@RCV.O.LIST,@IOP. TABLE+4 
SIOP . TABLE +6 
Tee *,$sTMP2 


> yea 3: *,$$TMPL 


2¢(SP) 3 $sTMP 
RO,2$8 3 $$TMP1,« 


SEQ Ret 


41 
30-Jan-1984 12:25:09 DISK $USER2: [MAZURCZYK . SOC ]ZQNA4. BLI; 2a) 


Bh 


ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:47:44 
v01.0 GLOBAL ROUTINE - XMIT_AND_RCV_PACKET 30-Jan-1984 12:25:09 
000052 005301 3$: DEC R1 
000054 000767 BR 1$ 
000056 013700 000000G 4$: MOV REG.ADR,RO 
000062 016016 000016 MOV 16(RO), (SP) 
000066 100410 BMI 5$ 
000070 104455 TRAP 55 
000072 001441 WORD 1441 
000074 000000G -WORD E0001 
000076 000000’ -WORD ERRORSREPORT 
000100 012700 000000G MOV @DEQNA.NO,RO 
000104 104451 TRAP 51 
000106 104444 TRAP 44 
000110 022626 5$: CMP (SP)+,(SP)+ 
000112 012601 MOV (SP)+,R1 
000114 000207 RTS PC 
; Routine Size: 39 words, Routine Base: ACSCODE$ + 3130 
; Maximum stack depth per invocation: 5 words 
3 2375 1 
3 2376 1 END 
3 2377 O ELUDOM 
3 OTS external references 
-GLOBL ‘$sSAVE3, $SAVE2 
3 PSECT SUMMARY 
Fy 
Fy Psect Name Words Attributes 
H Library Statistics 
3 
‘ Sr Symbols -------- Pages 
s File Totel Loaded Percent Mapped 
; DISK$USER2: [MAZURCZYK.SDCJQNALIB.L16;2 
3 157 86 54 12 


COMMAND QUALIFIERS 


VAX-11 Bliss-16 V4.0-579 
; $$TMP2 


‘ 
s *,TMP,.LOCATION 


Processing 
Time 


00:00.1 


SEQ 0167 
Page 
DISK $USER2: [MAZURCZYK . SOC JZQNA4.BLI; 1 


42 
(24) 
2367 


2370 


2371 


2340 


ZQNA4 CZQNAAO DEQNA FUNCTIONAL TEST 

v0O1.06 GLOBAL ROUTINE - XMIT_AND_RCV_PACKET 

3 BLISS/PDP11 ZQNA4.BLI/LIST=ZQNA4 .LIS/OBJECT =ZQNA4 
Size: 851 code + 0 date words 
Run Time: 00:33.4 


Elapsed Time: 01:48.1 
Lines/CPU Min: 4273 
emery tlt Min: 30149 
ry Used: 194 pages 
Geead ation Complete 


M13 
2-Feb-1584 14:47:44 
30-Jan-1984 12:25:09 


- OBJ/SOURCE =PAGE : 53 


VAX-11 Bliss-16 V4.0-579 Page 43 
DISK$USER2:(MAZURCZYK.SDC)ZQNA4.BLI;1 (24) 


SEQ ——— 


oe oe &e @s G+ Ge OF Ge oF OF Ge oF 


PRR RR OOOCOCCO 


SEQ 0169 
CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:49:34 VAX-11 Bliss-16 V4.0-579 P - 


16-Jan-1984 13:32:35 DISK $USER2: [MAZURCZYK .SDC JZQNAS.BLI; “eae 


MODULE ZQNAS (#TITLE ‘CZQNAAO DEGNA FUNCTIONAL TEST’ 
IDENT = ‘VO1.9', 
ADDRESSING _MODE(C ABSOLUTE ) 


SSBTTL ‘LAST ADDRESS AND SETUP SECTION’ 


BEGIN 

LIBRARY ‘QNALIB’ ; ! QNALIB LIBRARY 

REQUIRE ‘BLSMAC.REQ’ ; ! DIAGNOSTIC SUPERVISOR LIBRARY 
! <BLF /NOF ORMAT > 


(1 


wr 





Bi4 


=. 0170 
ZQNAS CZQNAAO DEQGNA FUNCTIONAL TEST 2 -Feb-1984 14:49:34 VAX-11 Blies-16 v4.0-579 Pege 2 
vo1.0 LAST ADDRESS AND SETUP SECTION 16-Jan-1984 13:32:35 OISK SUSER2: : (MAZURCZ YK, SOC )ZQNAS.BLI;1 €2) 
Fy 1502 2 LASTAD 
; 1503 2 BGNSE TUP( 1); ! NUMBER OF P-TABLES 
; © 1504 2 BGNP TAB 
3 1505 2 ENDP TAB 
3 1506 1 ENDSE TUF 
-TITLE ZQNAS CZQNAAO DEQNA FUNCTIONAL TEST 
- IDENT /V0O1.0/ 
-ENABL AMA 
000000 -PSECT $xYZ$, RO 
000000 000004’ BLSLAS:: .WORD TSFREE 
000002 000000C . WORD << TOFREE -<BLSLAS+4>>/2> 
000004 000000 TSFREE:: .WORD 0 
000004 ' LSLAST=e« BLSLAS+4 
000001 TSPTHVe« 1 | 
.SBTTL $END.LINK LAST ADORESS AND SETUP SECTION 
000000 000207 SEND.LINK:: i 
RTS PC F 1499 
s Routine Size: 1 word, Routine Bese: %sXYZ$ + 0006 j 
; Maximum stack depth per invocation: 0 
3 1507 1 
; 1508 1 END 
3 1509 0 ELUDOM j 
| 
: PSECT SUMMARY 
3 
; Psect Name Words Attributes | 
a $xvZ$s 4 RO 7 } 3 ° LcL, REL, CON | 
8 Librery Stetistics 
8 
rr Symbols -------- Pages Processing 
3 File Totel Loeded Percent Mapped Time 
8 
s OISKSUSER2: (MAZURCZYK.SOC JQNALIB.L16;2 
Fy 157 1 0 12 00:00.1 


Ci4 


ZQNAS CZQNAAO DEQNA FUNCTIONAL TEST 2-Feb-1984 14:49; 34 
v0O1.C LAST ADDRESS AND SETUP SECTION 16-Jan-1984 13:32:35 
3 COMMAND QUALIFIERS 
3 BLISS/PDP11 ZQNAS.BLI/LIST=ZQNAS.LIS/OBJECT =ZQNAS5 .OBJ/SOURCE «PAGE : 53 

Size: 1 code + 3 date words 

Run Time: 00:06.3 


Elapsed Time: 00:09.6 
Lines/CPU Min: 14463 
Lexemes/CPU-Min: 76130 
went Used: 100 pages 
Compilation Complete 


NifA 


SEQ 0171 
VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK . SOC )ZQNAS.BLI;1 


3 
(2) 


ooorrrrcoooocorrrroooo°oo0o 


D14 


2-Feb-1984 14:43:27 VAX-11 Bliss-16 V4.0-579 


P 
2-Feb-1984 14:42:41 DISK $USER2: [MAZURCZYK. SOC JQNALI@.R16;1— 


* 
* 


DEFINE DATA STRUCTURES IN THIS SECTION 


STRUCTURE 
REG_STR f 0, P, Ss. E€ j= 
6EGIN 
LOCAL TMP_LOCATION; 
TMP _LOCATION = .(REG_STR + SUPVAL « 0) <0, SBPVAL,O>; 
TMP _LOCATION 
ENO < P, S, E >; 


! DEFINE ACCESS ALGORITHM 


STRUCTURE 
ADR_STR { 0, P, S, E j= 
SEGIN 


LOCAL TMP_LOCATION; 
TMP _LOCATION = (ADR_STR + SUPVAL « 0) <0,SBPVAL,O>; 
TMP _LOCATION 

END < P, S, E >; 


! DEFINE ACCESS ALGORITHM 


C1A 


22222 


zz 


coooooooooocoooooocooooooooooooocooosooooso 


E14 


2-Feb-1984 14:43:27 VAX - 


Pege 2 
2-Feb-1984 14:42:41 DISK sUSER2: CMAZURCZ YK. SOC JQNAL IB. R16;1> (2) 


MACRO DEFINITIONS 


MACRO 
TST_BIT ( ADDR, EXPECTED ) = 
( IF € .ADDR AND EXPECTED ) EQLU EXPECTED 
—_ 
ELSE 
FALSE )s, 


ake OFFSET, POSITION, IMAGE ) = 
Pane + SUPVAL * OFFSET )< sSFIELDEXPAND ( POSITION ) > = IMAGE; 


wait gee ( OFFSET, POSITION, IMAGE ) = 
Te enone + OFFSET )< sFIELDEXPAND ( POSITION ) > = IMAGE; 


4 
a 


THIS MACRO GETS BITS SPECIFIED BY THE FIELD NAME “ POSITION ” 
AND MEMORY LOC SPECIFIED BY (.REG_ADR + SUPVAL * OFFSET) 


GET_BIT ( OFFSET, POSITION ) = 
-REG_ADR [ OFFSET, POSITION ] #; 


tr 4&4 & 


1 Bliss-16 V4.0 


SEG 0173 
-579 


Oe Be Ge Os Ge Ge GF Ge OF GF Os Ge GF GF GF Ge Bs Ge GE GF OF Ge Ge Ge GF Gs Gs GF Gs Ge SH GF Gs GF G+ GH OF GF GF Ge BF GF Bs OF OF Gs Os GF as OF OF Ge OF 
cooooooooooooooooooooooooooooooooooooccoooocoscooeocooscsoo 


Fi4 


SEQ 0174 
2-Feb-1984 14:43:27 VAX-11 Blies-16 V4.0-579 Page 3 
22-Feb-1964 14:42:41 DISK $USER2: [MAZURCZYK . SDC JQNAL IB. Riés1 (3) 


o 
a 


SR 
WORD_LIMIT = #0'177777', 


PATRN1 = £$0'001411', 


CSR STATIC BITS 
PATRN2 = 60'011471', 


CSR STATIC BITS 


ee 
2 


DESCRIPTOR LIST BUFFER OFFSETS 


LITERAL 
FALSE = 0, : 
TRUE = 1, : 
ZERO = 0, 2 
ONE = 1, : 
P_CLOCK ei, $ 
tL _CLOCK ° i, : 
-CLOCK = 0, : 
CLEAR_FLG = 0, | 
SET_FLG = 1, : 
PWR_DELAY = 10000, : 
M1_DELAY = 10, : 
M2_DELAY = 20, : 
M3_DELAY = 30, : 
M4_DELAY = 40, : 
MS _DELAY = 50, : 
RLO_ADR * 2. : 
RHI _ADR = 3. $ 
XLO_ADR = 4, : 
XHI_ADR = 5. : 
IOP_LO_ADR = 2, : 
IOP_HI_ADR = 3, $ 
I0P_SIZE = 60'1€', ! I/0 PAGE REGISTER SIZE 
IOP _ = 0, ! OFFSET TO DEVICE ADORESS 
TOP _vEC ° 2. ! OFFSET TO DEVICE VECTOR ADDRESS 
TOP _ = 4, ! OFFSET TO DEVICE BR LEVEL 
INT_VEC = 6, : 


D_FLAG_WO = 0, ! STATUS WORD 0, FLAG WORD 
D_DESCR_BITS = 1, : 
D_HI_ADR = 1, 3 
D_LO_AOR = 2, ' 


("4 A 


cooooooooocooooooooocoooooooooocoocooocooooooocoocooooococoso 


D_WO_COUNT = 3, $ 
D_WD1_STATUS = 4, $ 
D_WD2_STATUS = 5, : 
T_SIZE = 120, 
DESCR_SIZE = 64, 

O0_SIZE = DESCR_SIZE / 2, 
60_0_SIZE = 16, 

BUF _SIZE = 4096 « 2, 
8_SIZE = BUF _SIZE / 2, 
SETUB_SIZE = ’ 
BYTE_COUNT = - ( BUF_SIZE / 4 ), 
PROM_SIZE = 4096, 
CHSUM_OFFSET = 6, 


XFLG_MASK = #80‘ 140000' , 
X1_ = #0‘ 100000‘ , 
XWD1_MASK = #0'157760', 
XWD2 _MASK = #0‘ 140000’, 
XFLG_STATUS = #0'140000', 
XWD12_STATUS = #0'000400', 


XWD11_STATUS = #0' 000000’, 


RFLG_MASK = 80)‘ 140000 , 
R1_MASK = #0’ 106000' 

R2 = £0'174017', 
RWO1_MASK = #0’ 140000' , 
RWD1_STATUS = #0'020000', 
RFLG_STATUS = #0'140000', 
RHL_MASK = #0'003400' 
RLL_MASK = £60'000377', 
SA_RBL * 60'177775', 
PKT_LENGTH = sDECIMAL’ 1500’, 
LPB_PKT = 60'0220', 
PKT_TYPE = SDECIMAL'12', 
SKIP _CNT = 0, 

RFC = 1, 

PKT_DATA = SDECIMAL’15’, 
LSPL = SDECIMAL’ 1514’, 


$e 


G14 


2-Feb-1984 14:43:27 VAX-11 Blies-16 V4.0-579 Page 
2-Feb-1984 14:42:41  DISK$USER2:(MAZURCZYK.SOCJQNALI8.R16;1 (3) 


NXM ADDRESS - LOW ORDER BITS 
NXM ADDRESS - HIGH ORDER BITS 


TRANSMIT FLAG WORD MASK BITS 
TRANSMIT STATUS WO 1 MASK BITS 
TRANSMIT STATUS WO 1 MASK BITS 


BIT 86 IS SET IN INTERNAL LOOOPBACK MODES 
BIT 8 IS RESET IN EXTERNAL LOOOPBACK MODES 


RECEIVE FLAG WORD MASK BITS 


EXPECTED RECEIVE STATUS WD 1 
EXPECTED RECEIVE FLAG WORD 


RCV HIGH ORDER LENGTH BITS 

RCV LOW ORDER LENGTH BITS 

STATION ADR RCV BUF LENGTH - 3 WOS 
PACKET LENGTH 


LOOPBACK PACKET 
PACKET TYPE 


LONGEST SETUP PACKET LENGTH 


aa 
! BUFFER DESCRIPTOR / CHAIN DESCRIPTOR BIT DEFINITIONS 


L414 A 


SEQ 0175 


ee @s Ge Ge Gt Ge Ge Gt Ge Gs Ge Ge Gs Ge Gs GF Ge Ge Gs GH Gs Ge Ge GS Gs Ge Gt GS Gt Ge Ge Gs Ge GH Ge Ge GH GH Gt Ge GH Ge Ge GF Ge Ge Ge GH Ge Ge GH Ge OF 


ceoooooooooooooooooocoosoooooooooooooooocooocooooooosoooooo 


v = #0’ 100000’ 
c = #0‘ 040000’ 
E = #0‘ 020000’ 
s = #60‘010000' 


te 


é 
= 


See 


INX_LOOPBACK 
EXT_LOOPBACK 


£ 
: STATUS WORD 


CSR_1_STATUS 
CSR_2_STATUS 
CSR_STATUS 
CSR _MASK 


! STATION ADDRESS CONSTANTS 


#8'11', 
#8'11', 
#8'00', 


= £8'00', 
= 88'0O1', 
= #8'11', 


#0‘ 010062’, 
#0‘ 010060' , 
#0‘ 100220' , 
#0'010376', 


H14 


2-Feb-1984 14:43:27 VAX-11 Bliss-16 V4.0-579 Page 5 
2-Feb-1984 14:42:41 DISKSUSER2:(MAZURCZYK.SOCJQNALI@.R16;1 (3) 


VALID ADDRESS IF 1 
CHAIN ADDRESS IF 1 
END OF MESSAGE IF 1 
SETUP MODE PACKET IF 1 


BUFFER NOT USED IF 1 
LAST DESCRIPTOR IN CHAIN 


HIGH STATION ADDRESS BITS 
MIDOLE BITS 

LOW STATION ADDRESS BITS 
ACTUAL CHECKSUM INDEX 


EQUATES 


SOFTWARE P-TABLE SIZE ( WORDS ) 
HARDWARE P-TABLE SIZE ( WORDS ) 


XMIT AND RCV LISTS INVALID 
INTERNAL AND EXTERNAL LOOPBACK BITS 
INTERNAL AND EXTERNAL LOOPBACK BITS 


$ EQUATES FOR DEQNA LOOPBACK MODES 


INTERNAL LOOPBACK MODE 
INTERNAL /EXTENDED LOOPBACK MODE 
EXTERNAL LOOPBACK MODE 


Ta A 


SEQ 0176 


ethene rene es 


oooooo°o°o 


See 


: SET CSR BITS 


SET_IT = 1, 
CLR_IT = 0; 


114 


2-Feb-1984 14:43:27 
22-Feb-1984 14:42:41 


ia a 


VAX-11 Bliss-16 V4.0-579 


P 
DISK $USER2: [MAZURCZYK. SDC JQNALIB.R16;1> (3) 


SEQ 0177 
6 


ee 


} 


ceoooooooooooooooooocoooooooooooooooooooooooooo 


J14 


22-Feb-1984 
2-Feb-1984 14; 


AND STATUS REGISTER BIT DEFINITIONS 


14; 


SEQ 0178 
VAX-11 Bliss-16 V4.0-579 Page 7 
DISK$USER2: (MAZURCZYK. SDC JQNALIB.R16;1 (4) 


RE =( 0, 1,0), ! RECEIVER ENABLE R/W € ACTIVE HIGH ) 
SR =({ 1, 1, 0], ! SOFTWARE RESET R/W € ACTIVE HIGH ) 
NI =({ 2, 1,0), ! NXM_ INTERRUPT R (€ ACTIVE HIGH ) 
BO =( 3, 1. 0], ! BOOT/DIAGNOSTIC ROM R/W € ACTIVE HIGH ) 
XL =( 4, 1.0), ! XMIT LIST INVALIO R (€ ACTIVE HIGH ) 
RL =({ 5S. 1,0), ! RCV LIST INVALID R (€ ACTIVE HIGH ) 
Ie =({ 6, 1,0), ! INTERRUPT ENABLE R/W € ACTIVE HIGH ) 
xI ={ 7, 1, 0], ! XMIT INTERRUPT REQUEST R/W ( ACTIVE HIGH ) 
It ={ 8, 1, 0], ! INTERNAL LOOPBACK MODE R/W( ACTIVE LOW ) 
EL ={ 9, 1, 0), ! EXTERNAL LOOPBACK MODE R/W ( ACTIVE HIGH ) 
SE = (10, 1, 0), ! SANITY TIMER ENABLE R/W € ACTIVE HIGH ) 
x1 = (11, 1,0), ! RESERVED, UNUSABLE 
xc = (12, 1, 0 ], ! TRANSCEIVER PwR R ( ACTIVE HIGH ) 
CA = (13, 1,0], ! CARRIER R  ( ACTIVE HIGH ) 
x2 = (14, 1, 0], ! RESERVED, UNUSABLE 
RI «= (15, 1. 0], ! RCV INTERRUPT REQUEST R/W € ACTIVE HIGH ) 
LB =({ 62,0) ! LOOPBACK BITS 
XLRL =({ 4, 2,0], ! XMIT ANO RCV LISTS INVALIO BITS 
ALL _BITS= [ 0,16, 0 }, ! FETCH WHOLE WORD 
LO_.NIBBLE = [ 0, 0, 0), Hy 

-NIBBLE = [ 0, 4,0], $ 
LO.BYTE -=[{ 0, 801], : 
HI_BYTE = [ O, 16, 0], ! GET WORD, ALL BITS 
ST_ADOR =[{ 0, 8, 0], ! STATION ADDRESS LOW BYTE 
ST.WORD =[ O, 16, 0}, ! GET WORD, ALL BITS 
RCvi0 = [ 2, 0, 16, 0), ! RCV BUFFER DESCRIPTOR LIST LOW ADDRESS 
RCv_HI = [ 3, 0, 8, : ! RCV BUFFER DESCRIPTOR LIST HIGH ADDRESS 
XMIT.LO = [ 4, 0, 16, 0 J, ! XMIT BUFFER DESCRIPTOR LIST LOW ADDRESS 
XMIT_HI = [ 5, 0, 8. 0], ! XMIT BUFFER DESCRIPTOR LIST HIGH ADDRESS 
VEC_ADR = [ 2, &, ), ! INTERRUPT VECTOR ADDRESS 
VEC_ALL = [ 6, 16, O ], ! INTERRUPT VECTOR ADDRESS 
CSR_ALL = [{ 7, O, 16, ! CONTROL AND STATUS REGISTER 


ccoooooooooooooooooooooooococoooooooocooooooosoooooscooocooo 


FIELD 
DL_FIELOS = 
SET 
FLGWD = (0, 0, 16, 0], 
OBITS =(1, 0, 16, 0], 
SBIT efi. i2. 4. 9 J}. 
LOADR ={({ 2, 0, 16, 0], 
TWOL °©{ 3. 0. 16. 0 J, 
STWO1 ad ( 4, e 16. 0 }, 
STWD2 *f S$, @ 1. @ ie 
INK = (6, 0, 16, 0), 

BSTAT st, 0 w, 9 I. 
B_LEN =[{ 0, 8&0), 
WLEN = [ 0,16, 0 ) 
TES; 

See 

) 

{ LOOPBACK FIELD DEFINITIONS 

fen 

FIELD 

LPBK_FIELDS = 

SET 
SET _LOOPBACK = (8, 2, 0 ) 
TES; 


¢ 
- 


HARDWARE P-TABLE FIELD DEFINITIONS 


FIE 
HWP _FIELDS = 
SET 
=[( 0, O, 16, 0), 
VEC “fi. 0 16. 0 }. 
BRL = - oO 16, y] 
TES; 


* 
° 


SOFTWARE P-TABLE FIELD DEFINITIONS 


7 
om] 


ELD 
SWP_FIELDS = 
SET 
ERR_CNT = [0,0,16,0] 


K14 


2-Feb-1984 14:43:27 
22-Feb-1984 14:42:41 


TRANSMIT WORD LENGTH 


! LOOPBACK MACRO DEFINITION 


! I/0 PAGE BASE ADDRESS 
! INTERRUPT VECTOR ADDRESS 
! BR LEVEL 


! @ OF ERRORS BEFORE DROPPING DEQNA 


VAX-11 Bliss-16 V4.0-579 Page §& 
DISK $USER2: [MAZURCZYK. SOC JQNAL IB. R16; _ (S) 


SEQ 0179 


trod 0 TES; 


Li4 


22-Feb-1984 14:43:27 
22-Feb-1984 14:42:41 


COMMAND QUALIFIERS 


BLISS/POP11 QNALIB.R16/LIST=QNALI8B.LIS/LIBRARY =QNAL 7S .L16/SOURCE =PAGE : 53 


Run Time: 00:02.7 
Elapsed Time: 00:23.7 
Lines/CPU Min: 7443 
Lexemes/CPU-Min: 31443 

Memory Used: 55 pages 

Library Precompi lation Complete 


SEQ 0180 
VAX-11 Bliss-16 V4.0-579 Page 
DISK $USER2: [MAZURCZYK. SDC JQNALIB. R16;1- (Ss 


wo 


M14 


ZQNAAO.EXE Memory allocation map TKB M40.02 Page 1 


Partition name 
Identification : 
Task UIC : 
Task attributes: 


2-FEB-84 14:50 


: DUMMY 


vo1.0 


: (202,22) 
HO 


Total address windows: 1. 


Task image size 


: 8544. words 


Task address limits: 002000 043257 
R-W disk blk limits: 000002 000043 000042 00034. 


##e Root segment: ZQNA1 


R/W mem limits: 
Disk blk Limits: 


002000 043257 041260 17072. 
000002 000043 000042 00034. 


Memory allocation synopsis: 


Title Ident File 


$CODE$ :(RO,I,LCL,REL,.CON) 002000 000274 00188. 


002000 000176 00126. ZQNA1 V0O1.0 ZQNA1.08J;2 
002176 000076 00062. ZQNA2 VO1.0 ZQNA2.08J;2 

$GLOB$:(RW,D,LCL,REL,CON) 002274 021664 09140. 
002274 021664 09140. ZQNA1 V01.0 ZQNA1.08J;2 

$PLIT$:(RO,D,LCL,REL,CON) 024160 006056 03118. 
024160 006056 03118. ZQNA1 V0O1.0 ZQNA1.08J;2 

AA$COD: (RO,I,LCL,REL,CON) 032236 000706 00454. 
032236 000706 00454. ZQNA2 VO1.0 ZQNA2.08J;2 

AB$COD:(RO,I,LCL,REL,CON) 033144 004526 02390. 
033144 004526 023590. ZQNA3 VO1.0 ZQNA3.0BJ;2 

AC$COO:(RO,I,LCL,REL,CON) 037672 003246 01702. 
QO ZQNA4.08J;2 


- BLK.:CRW,I,LCL,REL,CON) 043140 


037672 003246 01702. ZQNA4 VvO1. 
000000 00000 


$xvYZ$ :(RO,I,LCL,REL,CON) 043140 000116 00078. 


Global symbols: 


043140 000106 00070. CZQNAA 2.4 B16SAV.0B8J;2 
043246 000010 00008. ZQNAS V01.0 ZQNAS.0BJ;2 


BIT1 000002 BITS 000400 CLK.IN 033076-R CSR.WO 024100-R 
BIT10 002000 BIT9 001000 CLK.ST 024042-R DATA.B 062474-R 
BIT11 004000 BLSLAS 043246-R CLK.TY 074034-R OBMO1 024414-R 
BIT12 010000 BOE 000400 CLK.VE 024036-R OBMO2 024452-R 
BIT13 020000 BUF .LE 024076-R CLR.BU 040674-R OBMOS 024476-R 
BIT14 040000 CANCEL 024054-R CLR.DE 040714-R O0BMO4 

BIT15 100000 CHECKS 024074-R CLR.RB 040654-R ODBMOS 024554-R 
BIT2 000004 CHK.CS 041024-R CLR.RO 040736-R DBMO6 024610-R 
BITS 000010 CHK.RC 041416-R CLR.SE 041002-R DBM3S3 024644-R 
BIT4 000020 CHK .XM 041150-R CLR.XB 040634-R OBM34 024704-R 
BITS 000040 CLK.AD 024032-R CLR.XD 040760-R OBM3S 024742-R 
BIT6 000100 CLK.CS 024040-R COMPAR 041664-R DBM36 025014-R 
BIT7 000200 CLK.HE 024044-R COUNTE 024072-R ODBM37 025060-R 


OSPCNT 002122-R 
EF .CON 000036 


SEQ 0181 


EXE 


026212-R 


IOP .DA 
—" 


Memory a wo map TKB M40.02 
14:50 


FEB -84 


024104-R 
023522-R 


#44 Task builder statistics: 
Total work file references: 41365. 


Work fil 


e reads: O 


Work file writes: 0. 
Size of core pool: 
Size of work file: 


Elapsed time:00:00:17 


LSEXPS 


L$SPTP 002024-R 


4016. words (15. pages) 
3328. words (13. pages) 


Page 2 


002030-R 
002164-R 
002162-R 
002114-R 
002014-R 


002000 
000000 


024160-R 


024210-R 
024240-R 
024270-R 
024342-R 
024404-R 
024406 -R 
024410-R 
024412-R 
024060-R 
002474-R 
002274-R 
024102-R 
040210-R 
024050-R 
022522-R 
042136-R 
042214-R 
023556-R 
002164 -R 
024030-R 
024154-R 
024156-R 
023576-R 
024150-R 
024151-R 
024152-R 
024153-R 
024114-R 
024116-R 
024120-R 
024122-R 


$SAVES 


024124-R 
024126-R 
024130-R 
024132-R 
024134-R 
024046-R 
024110-R 


043212- R 


D1 


SEQ 01483 

ZQNAAO CREATED BY TKB ON 2-FEB-84 AT 14:50 PAGE 1 
GLOBAL CROSS REFERENCE CREF vol 
SYMBOL. VALVE REFERENCES 

@ ZQNA1 ZQNA2] 
BO.PRO 023766-R @ ZQNA1 ZQNA35 ZQNA4 
BITO 000001 @ ZQNAL = @ ZQNA2 
BITOO 000001 @ ZQNA1L = @«ZQNA2 
BITO1 000002 @ ZQNAL = @ «ZQNA2 
BITO2 000004 @ Z7@NA1 =—s @«ZQNA2 
BITOS 000010 @ ZQNAL = @ ZQNA2 
BITO4 000020 @ ZQNAL = @« ZQNA2 
BITOS 000040 @ ZQNAL = @ ZQNA2 
BITO6 000100 @ ZQNAL—s @«ZQNA2 
BITO? 000200 @ ZQNAL = @ «ZQNA2 
BITOS 000400 @ ZQNAL = @ ~ZQNA2 
BITO9 001000 @ ZQNAL = @ « ZQNA2 
BIT1 000002 @ ZQNAL = @ «ZQNA2 
BIT10 002000 @ ZQNAL = @ ZQNA2 
BITi1 004000 @ ZQMA1L = @ « ZQNA2 
BITi2 010000 @ ZQMAL = @ « ZOQNA2 
BITi13 020000 @ ZQNAL = @ ZQNA2 
BIT14 040000 @ Z7QA1l = @ ZQNA2 
BIT15 100000 @ ZQA1L = ® ZQNA2 
BIT2 000004 @ ZQMAL = @ « ZQNA2 
BITS 000010 @ Z7QMAL = @ «ZQNA2 
BIT4 000020 @ ZQNAL = @ ZQNA2 
BITS 000040 @ ZQNAL = @ ZQNA2 
BITé 000100 @ ZQNAL = @ «ZQNA2 
BIT7 000200 @ ZQNAL = @ «ZQNA2 
BITS 000400 @ ZQNAL = @ « ZQNA2 
BITS 001000 @ ZQNAL = @ « ZQNA2 
BLSLAS 043246-R @ ZQNAS 
BOE ® ZQNA1L = @ ZQNA2 
BUF .LE 024076-R @ ZQNAL 
CANCEL 024054-R @ ZQNA1 ZQNAQ ZQNA3 ZQNA4 
CHECKS 024074-R @ ZQNAL ZQNAS ZQNA4 
CHK.CS 041024-R ZQNA3 ZONAL 
CHK.RC 041416-R ZQNAS) — @ ~ZQNAS 
CHK.XM 041150-R ZQNAS) — @ ZQNAS 
CLK.AD 024032-R @ ZQNAL ZQNAQ ZQNAS ZQNA4 
CLK.CS 024040-R @ ZONAL ZQNAQ ZQNAS ZQNA4 
CLK.ME 024044-R @ ZQNAL ZQNA2 ZQNAS ZQNA4 
CLK.IN 033076-R ZuntA2 ZQNAS 
CLK.ST -R @ ZQNAL ZQNA2 ZQNA3 ZQNA4 
CLK.TY 024034-R @ ZQNAL ZQGNA2 ZQNAS ZQNA4 
CLK.VE 024036-R @ ZQNAL ZQNA2] ZQNAS ZQNA4 
CLR.BU 040674-R ZQNAS = @ ZONA 
CLR.DE 040714-R ZQNAS  @ ZONA 
CLR.RB 040654 - ZQNAS = @ ~ZQNAA 
CLR.RD 040736-R © ZQNA4 
CLR.SE 041002-R @ ZQNA4 
CLR.XB 040634-R ZQNAS @ ZQNA4 
CLR.XD 040760-R @ ZQNA4 
COMPAR 041664-R ZQNAS = @ ZQNA4 
COUNTE 024072-R @ ZQNA1L ZQNA3S ZQNA4 


——--— -—_—_—————- —- — 


Ci5 


SEQ 0144 
CREATED BY TKB ON 2-FEB-84 AT 14:50 PAGE 2 
CROSS REFERENCE CREF vOl1 
VALUE REFERENCES... 


ZQNA4 
002474-R @ ZQNA1 ZQNA3 ZQNA4 


36 ® ZQNAL = @ ZQNA2 
000035 @ ZQNAL = @ ~ZQNA2 
000034 @ ZQNA1L = @ ZQNA2 
000037 @ ZQNAL = @ ZQNA2 

® ZQNAL = @ ZQNA2 


ZONAM 
026120-R @ ZQNA1 ZQNA3 ZQNA4 
026202 ZQNAS 


000004 
026216-R @ ZQNAL ZQNAS ZQNA4 
026252 


CREATED BY TKB 
CROSS REFERENCE 


VALUE 


002246 -R 
002120-R 


ON 2-FEB-84 AT 14:50 


REFERENCES. ef 
@ ZQNA1L ZQNA3 
@ ZQNA1 ZQNA3 
@ ZQNA1 ZQNA3 
@ ZQNAL ZQNAS 
@ ZQNAL ZQNA3S 
@ ZQNA1 

ZQNAS = @ ZQNA4 
@ ZQNA1 ZQNA2 
@ ZQNA1 ZQNA2] 
@ ZQNA2 
@ ZQNA2 
@ ZQNAL = @ ZQNA2 
@ ZQNA1L 
@ ZQNA1 ZQNA2 
@ ZQNAL 8 @ ZQNA2 
@ ZQNAL = @ ZQNA2 
@ ZQNAL = @ ZQNA2 
@ ZQNA1 ZQNA2 
@ ZQNA1L ZQNA2] 
@ ZQNAL ZQNA] 
@ ZQNAL 8 @ ZQNA2 
@ ZQNAL = @ ZQNAz 
@ ZQNAL = @ ZQNA2 
@ ZQNAL = @ ZQNA2 
@ ZQNA1 
@ ZQNA1 

ZQNAL @ ZQNA2 
@ ZQNA1 

ZQNAL 8 @ ZQNA2 
@ ZQNA1L 

ZQNAL @ ZQNA2 
@ ZQNA1L 
@ ZQNA1L 

ZQNAL 8 @ ZQNA2 
@ ZQNA1L 
@ ZQNA1L 
@ ZQNA1 
@ ZQNA1 ZQNA2 
@ ZQNA1 
@ ZQNA1 

ZQNAL @ ZQNA2 
® ZQNA1 

ZQNAL @ ZQNA2 
® ZQNA1 
@ ZQNA1L 
@ ZQNA1 
@ ZQNA1 
@ ZQNAL 
@ ZQNA1 
@ ZQNA1 

ZQNAL @ ZQNA2 
@ ZQNA1 


ZQNA3 
ZQNA3 


ZQNA3 


ZQNA3 


ZQNA4 
ZQNA4 


ZQNA4 
ZQNA4 


ZQNA4 


PAGE 53 
CREF 


D1i5 


vol 


cic 


SEQ 0145 


Srcicchaloossiaiih ccpacasnadabesescinataccnlaniccena tameiacastamie eee atin cee e  ocekaNe cea 


epee y pat ps4 
aun BRERP 


CREATED BY TKB 


CROSS REFERENCE 
REFERENCES... 


VALUE 


002016-R 
002022-R 
002244-R 
002154-R 
002152-R 
002104-R 
032770-R 
002026 -R 


027446 -R 
027552-R 


@ ZQNA1 
@ ZQNA1 


® ZQNA1 
@ ZQNA1 


ON 2-FEB-84 AT 14:50 


@ ZQNA2 
@ ZQNAS 


@ ZQNA2] 
@ ZQNA2] 


ZQNA2 
ZQNA2] 


ZQNA3 
ZQNA3 


ZQNA4 
ZQNA4 


PAGE 4 
CREF 


vo1 


4 he 


. 4 


SEQ 0156 


Fi5 
ON 2-FEB-84 AT 14:50 PAGE 5 
CREF vol 


ZQNA2 ZQNA3 ZQNA4 


ZQNA4 
ZQNA2 ZQNA3 ZQNA4 


ZQNAAO CREATED BY TKB 
GLOBAL CROSS REFERENCE 
SYMBOL VALUE REFERENCES... 
MSGOS 027644-R #@ ZQNA1 
MSGO6 027736-R #@ ZQNA1 
MSGO7 030030-R @ ZQNA1 
MSGO8 030122-R @ ZQNA1 
MSGO9 030214-R @ ZQNA1 
MSG10 030306-R @ ZQNA1 
MSG11 030360-R #@ ZQNA1 
MSG12 030434-R #@ ZQNA1 
MSG13 030512-R # ZQNA1 
MSG14 030574-R @ ZQNA1 
MSGiS O -R @ ZQNA1L 
MSG16 030742-R @ ZQNA1 
MSG17 031026-R #@ ZQNA1 
MSG18 031114-R @ ZQNA1 
MSG19 031140-R @ ZQNA1 
MSG20 031226-R @ ZQNA1 
MSG21 031316-R @ ZQNA1 
MSG22 031376-R @ ZQNA1 
MSG23 031462-R @ ZQNA1 
NXM.IN 033060-R @ ZQNA2 
PHYS.A 022474-R @ ZQNA1 
PNT 001000 @ ZQNAL = @ 
PRI 002000 ® ZQNAL = @ 
PRIOO 000000 @ ZQNAL =# 
PRIOi 000040 @ ZQNAL = @ 
PRIO2 000100 @ ZQNAL = @ 
PRIO3 000140 @ ZQNAL = @ 
PRIO4 000200 @ ZQNAL «=—@ 
PRIOS 000240 @ZQAL @ 
PRIO6 000300 @ZQAL ¢ 
PRIO7 000340 ®ZQAL @ 
PTRN.T 023566-R @ ZQNAL 
Pl 024136-R @ ZQNAL 
P2 024140-R @ ZQNAL 
P3 024142-R @ ZQNAL 
P4 024144-R @ ZQNAL 
PS 024146-R @ ZQNA1 
QSTO1 024160-R @ ZQNA1L 
QSTO2 024210-R @ ZQNA1 
QSTO3 -R @ ZQNAL 
QSTO4 024270-R @ ZQNAL 
QSTOS 024342-R @ ZQNAL 
QSTO6 -R @ ZQNAL 
QSTO7 -R @ ZQMA1 
QSTOB 024410-R @ ZQNA1L 
QSTO9 4 024412-R @ ZQNA1L 
RBUF.L. O24060-R @ ZQNA1L 
RCV.BU 002474-R @ ZQNAL 

-D. O002274-R @ ZQNA1L 

° 024102-R @ ZQNA1 
RESET. 040210-R ZQNA2] 
SECOND 024050-R @ ZQNA1 


ZQNA2 ZQNA3 ZQNA4 


on 


SEQ 0187 


CREATED BY TKB 
CROSS REFERENCE 


VALUE 


036402 
037330-R 


REFERENCES. . 


eo 
@ 


SS SSSSSSeseeesese 


ON 2-FEB-84 AT 14:50 


ZQNA3 ZQNA4 


ZQNA4 


ZQNA4 
ZQNA4 


ZQNA4 
ZQNA4 
ZQNA3 


